set Vis CreateObject Visio Application set Doc Vis Documents Open Docs

1
2
3
4
5
set Vis = CreateObject("Visio.Application")
set Doc = Vis.Documents.Open("D:\Docs\Drawing1.vsd")
For Each shpObj In Vis.ActiveDocument.Pages("page-1").Shapes
If shpObj.Name = "mycell2" Then msgbox shpObj.Text
Next