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

[jkorchok]

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