ScaleHeight и ScaleWidth InlineShape всегда возвращают 0

Question

В моем Word VBA Macro ScaleHeight и ScaleWidth объекта InlineShape всегда возвращают 0, в зависимости от того, какие значения установлены в реальном объекте.

Настройка значений работает отлично. Но получение значений всегда возвращает 0. Как я могу получить правильное значение ScaleHeight и ScaleWidth с VBA?

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

Result:0,0