Rotating a graphic object

[Sukhdev Sembhi]

I am trying to rotate all graphic objects in a word document if the object is
wider than a specified width. I can successfully locate and find out the
width but I can not rotate it.
Sub ImageToLandscape()
Dim intWidth As Integer

Selection.Find.ClearFormatting
With Selection.Find
.Text = "^g"
.Replacement.Text = ""
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Do While Selection.Find.Execute = True
With Selection
intWidth = .InlineShapes(1).Width
If intWidth > 520 Then
.ShapeRange.IncrementRotation 90#
End If
End With
Loop
End Sub

I get a run time eror 4189 on the shaperange line. I have used shapelene as
it appears to get the results I need when I recorded the macro below:
Sub RotateGraphic()

Application.Browser.Next
Selection.ShapeRange.IncrementRotation -90#
End Sub