InlineShape的ScaleHeight和ScaleWidth始终返回0

Question

In my Word VBA Macro, ScaleHeight and ScaleWidth of an InlineShape object always return 0, whichever values are set in the actual object.

Setting values works fine. But getting values always returns 0. How can I get the correct value of ScaleHeight and ScaleWidth with VBA?

Dim targetShape As InlineShape
Set targetShape = Selection.InlineShapes(1)
debug.Print targetShape.ScaleHeight
debug.Print targetShape.ScaleWidth

Result:0,0