Word - Word 2007 bug: Inlineshapes(1).scale width returns 0

The following code runs correctly in Word 2003, but always returns 0 in Word 2007.

Sub AAScaleWidth()
Dim SelectedPicture1 As InlineShape
Set SelectedPicture1 = Selection.InlineShapes(1)
MsgBox SelectedPicture1.ScaleWidth
End Sub

The same thing happens with ScaleHeight. Is there a known workaround for this bug?

John

Whatever the problem was in Word 2007, it works correctly in Word 2010.

--
Stefan Blom
Microsoft Word MVP