选择更改后，形状变量将丢失对某些形状属性的引用

Question

我在Microsoft Word中使用VBA来操作形状。我有一个实例，当选择更改时，变量会丢失对某些形状属性的引用。以下是代码。当此代码开始运行时，会在文档中选择一张图片。图片是规则形状（即不是内联形状）：

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

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

  

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

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