如何在Word VBA中提取形状坐标

发布于 2024-08-16 17:36:15 字数 194 浏览 3 评论 0原文

我正在尝试在 Word 中编写一个 VBA 宏，该宏将提取形状并在 Visio 中构建它们。我在获取文档中形状的 XY 坐标时遇到一些问题。我尝试使用形状对象的顶部和左侧属性。 Left 属性似乎工作正常，但 Top 似乎工作不正常。靠近页面顶部的形状可以与底部的形状具有相同的顶部，因此顶部似乎不适用于 Y 坐标，这对我来说没有意义。

有什么想法或建议吗？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

暮色兮凉城 2024-08-23 17:36:15

Jon，“顶部”属性应该随着形状改变位置而更新。您是否正在运行与此类似的脚本：

Sub getShapeXY()

    Dim shp As Shape
    Set shp = ThisDocument.Shapes(1)

    shpOffsetX = shp.Left
    shpWidth = shp.Width
    x = shpOffsetX + shpWidth

    shpOffsetY = shp.Top
    shpHeight = shp.Height
    y = shpOffsetY + shpHeight

    Debug.Print shpOffsetX & ": OffsetX, " & shpWidth & ": Width, " & x & ": X"
    Debug.Print shpOffsetY & ": OffsetY, " & shpHeight & ": Height, " & y & ": Y"

End Sub

Jon, the "Top" property should update as the shape changes location. Are you running a script similar to this:

Sub getShapeXY()

    Dim shp As Shape
    Set shp = ThisDocument.Shapes(1)

    shpOffsetX = shp.Left
    shpWidth = shp.Width
    x = shpOffsetX + shpWidth

    shpOffsetY = shp.Top
    shpHeight = shp.Height
    y = shpOffsetY + shpHeight

    Debug.Print shpOffsetX & ": OffsetX, " & shpWidth & ": Width, " & x & ": X"
    Debug.Print shpOffsetY & ": OffsetY, " & shpHeight & ": Height, " & y & ": Y"

End Sub

回复收藏 0 原文

~没有更多了~