WORD中如何获取Shape的位置？

[hnyyy]

使用ActiveWindow.GetPoint，如果Shape不在可见区域，该函数不是返回false，而是程序直接崩溃。

如何在使用ActiveWindow.GetPoint前进行判断避免出错？或者用其他方法可以获得Shape的位置，再转换屏幕坐标？

[Treenewbee]

Sub test()
Dim sh As Shape
Set sh = ActiveDocument.Shapes(1)
MsgBox sh.Top & "," & sh.Left
End Sub

[hnyyy]

sh.Left与sh.Top不会让程序崩溃，但真的会让人崩溃，它是相对于段落、页边距之类的，情况多样，无法得出其屏幕的坐标。 ActiveWindow.GetPoint可以得到屏幕坐标，但shape超出屏幕过多时，程序直接崩溃，不是弹出提示或者返回false。不知如何解决？

[只一刀]

哥也在这个问题上纠结了很久，终于搞明白了，你要想 shape.top得到的值是相对于页边距的，就要在shape的WdRelativeVerticalPosition 属性为wdRelativeVerticalPositionPage（1 Relative to page） 这个是api，自己研究下： http://msdn.microsoft.com/en-us/library/office/bb237988(v=office.12).aspx