select all pictures and rotate them 90 degree

J

John Smith

I have a file containing many many emoticons. Any way to select
all emoticons (all graphics) and rotate them 90 degree? Thanks.
 
S

spunkymuffmonkey

Hi John,

The following might be useful:

Sub RotateShape()

Dim iShapeCount As Integer

iShapeCount = ActiveDocument.Shapes.Count

For i = 1 To iShapeCount

ActiveDocument.Shapes(i).IncrementRotation -90#

Next i

End Sub

Regards
 
Top