Shape1 is 2 inserted BMPs grouped then named.
The shape group "Shape1" still has the green dot that allows manually
setting the rotation. (unlike what happens when grouping a bitmap and a
textbox)... that resulting group of shapes has a disabled rotation feature.

ActiveSheet.Shapes("Shape1").Select
Selection.ShapeRange.IncrementRotation 270
Selection.ShapeRange.Rotation 120

Object doesn't support this property or method. on the 3rd line; why does
line 2 work and not line3?

Is there some alternate way to set the rotation?

--
Regards,
John

Hi John,

Change:

Selection.ShapeRange.Rotation 120

to

Selection.ShapeRange.Rotation = 120


---
Regards,
Norman



"John Keith" wrote in message
...
Shape1 is 2 inserted BMPs grouped then named.
The shape group "Shape1" still has the green dot that allows manually
setting the rotation. (unlike what happens when grouping a bitmap and a
textbox)... that resulting group of shapes has a disabled rotation
feature.

ActiveSheet.Shapes("Shape1").Select
Selection.ShapeRange.IncrementRotation 270
Selection.ShapeRange.Rotation 120

Object doesn't support this property or method. on the 3rd line; why does
line 2 work and not line3?

Is there some alternate way to set the rotation?

--
Regards,
John