select all pictures and rotate them 90 degree

[John Smith]

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

 

[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