Visio VBA，需要循环所有页面以提取一种特定形状数据

发布于 2025-01-12 17:35:21 字数 308 浏览 0 评论 0原文

再会，我正在尝试从活动文档中的所有页面获取特定的形状数据。有人可以帮我解决以下代码吗？

Sub Macro3()

Dim Pg As Visio.Page
Dim shp As Shape

For Each Pg In Application.ActiveDocument.Pages
 shp = Pg.Shapes("Cartouche Site").CellsU("Prop.T2").formula
 Debug.Print shp.CellsU("Prop.T2").formula
Next

End Sub

非常感谢

原文

Good Day,
I'm trying to get a specific shape data from all pages in the active document.
Can someone help me with the following code?

Sub Macro3()

Dim Pg As Visio.Page
Dim shp As Shape

For Each Pg In Application.ActiveDocument.Pages
 shp = Pg.Shapes("Cartouche Site").CellsU("Prop.T2").formula
 Debug.Print shp.CellsU("Prop.T2").formula
Next

End Sub

Thank you very much

分享到QQ

分享到微博

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

发布评论

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

南风几经秋 2025-01-19 17:35:21

马克！
请尝试此修改后的代码

Sub Macro3()

Dim Pg As Visio.Page
Dim shp As Shape

For Each Pg In Application.ActiveDocument.Pages
   Set shp = Pg.Shapes("Cartouche Site")
   Debug.Print shp.CellsU("Prop.T2").formula
Next

End Sub

您确定每个页面都包含名为Cartouche Site的形状吗

Marc!
Please try this modified code

Sub Macro3()

Dim Pg As Visio.Page
Dim shp As Shape

For Each Pg In Application.ActiveDocument.Pages
   Set shp = Pg.Shapes("Cartouche Site")
   Debug.Print shp.CellsU("Prop.T2").formula
Next

End Sub

Are you sure that each page contain shape named Cartouche Site

回复收藏 0 原文

~没有更多了~