Rotating shape in VBA (not center of shape)

Piblon · April 11th, 2006, 09:20 AM

Hi all
I am trying to get an object to rotate with VBA.
ThatÂ´s easy to make it rotate using Selection.ShapeRange.IncrementRotation "some number"
BUT it will then rotate the center of the object.
If you push CTRL while rotating the shape it will rotate along the base of the object instead.
Howe is this achieved in VBA?

Thanx in advance
Piblon

jrogers · April 13th, 2006, 03:11 AM

not sure if there is an easy way.. you may need to rotate then move

Piblon · April 13th, 2006, 03:52 AM

Hi again
I could not see any difference (I am using Office 2003)

What if you want to use ShapeRange.Rotation = "some number" instead?
It is possible to rotate from the base with this command?

//
Piblon

jrogers · April 13th, 2006, 04:04 AM

sorry first post was incorrect, thats why I changed it... to rotate 180 degrees try

Code:

With ActiveSheet.Shapes(1)
    .IncrementRotation 180#
    .IncrementTop Selection.Height
End With