vba - 更改选择时，形状变量会丢失对某些形状属性的引用

Question

我在 Microsoft Word 中使用 VBA 来操作形状。I have an instance where a variable loses reference to some shape properties when the selection is changed. 以下是代码。当此代码开始运行时，会在文档中选择一张图片。图片是规则形状（即不是内联形状）：

Dim MyShape As Shape
Set MyShape = Selection.ShapeRange(1)
MsgBox MyShape.Left
Selection.Collapse
MsgBox MyShape.Left

第一个 MsgBox 命令工作正常，但折叠选择后的第二个命令会导致以下错误：

“运行时错误'4605'：Left 方法或属性不可用，因为绘图操作无法应用于当前选择。”

如果我在折叠选择后尝试访问 MyShape.Top，也会发生同样的事情。奇怪的是，如果我在折叠选择后尝试访问 MyShape.Width 或 MyShape.Height，它工作正常。任何见解将不胜感激。