Visio VBA，需要循环所有页面才能提取一个特定的形状数据

Question

祝你好运，我正在尝试从活动文档中的所有页面获取特定形状的数据。有人能帮我输入以下代码吗？

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

非常感谢

Answer 1

Marc！请尝试这个修改后的代码

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的形状吗