Align Object to center of screen

[andrewb90]

Hello all.

I am animating a logo in my sheet, but I am having a hard time centering the object in the middle of the users screen. my only directional options seem to be

    Sheet1.Shapes("Logo").Left = 20
    Sheet1.Shapes("Logo").Top = 0

Is there a way to have it centered in the middle of the screen - whatever size that maybe?

 

[Peter h]

I have different workbooks where my userforms change size depending on selections made, so to make sure they stay centered I use:

Me.Left = (Application.Width / 2) - (Me.Width / 2)
Me.Top = (Application.Height / 2) - (Me.Height / 2)

Just adapt that for your shape, and it should work.

 

[andrewb90]

awesome thank you!

 

[Peter h]

NP. Glad I could help.

 

[andrewb90]

also, is there a way to align the object to the bottom corner of the screen?

 

[Peter h]

Untested, but try

Sheet1.Shapes("Logo").Left = 0
Sheet1.Shapes("Logo").Top = Application.Height - Sheet1.Shapes("Logo").Height

Edit: I was assuming you were talking about the bottom left corner. If you were talking about the bottom right corner, it might be:

sheet1.Shapes("Logo").Left = Application.Width - Sheet1.Shapes("Logo").Width