M
Mr
Hi all,
I need help to implement the following Visual Basic code in C++
====================================================
====================================================
Public Sub LayersContent2()
Dim PagObj As Visio.Page
Dim layersObj As Visio.Layers, layerObj As Visio.Layer
Dim shpsObj As Visio.Shapes, shpObj As Visio.Shape
Dim I As Long, N As Long
For Each PagObj In ActiveDocument.Pages
For Each shpObj In PagObj.Shapes
N = shpObj.LayerCount
If N > 0 Then
For I = 1 To N
Set layerObj = shpObj.Layer(I)
Debug.Print PagObj.Name; " "; shpObj.Name; " ";layerObj.Name
Next I
End If
Next ShpObj
Next PagObj
End Sub
====================================================
====================================================
Note I have found this code at www.mvps.org/visio/vba.htm
====================================================
I've built windows form application and add to it visio ActiveX my
visio object name is DrowingControl1
Thanks
I need help to implement the following Visual Basic code in C++
====================================================
====================================================
Public Sub LayersContent2()
Dim PagObj As Visio.Page
Dim layersObj As Visio.Layers, layerObj As Visio.Layer
Dim shpsObj As Visio.Shapes, shpObj As Visio.Shape
Dim I As Long, N As Long
For Each PagObj In ActiveDocument.Pages
For Each shpObj In PagObj.Shapes
N = shpObj.LayerCount
If N > 0 Then
For I = 1 To N
Set layerObj = shpObj.Layer(I)
Debug.Print PagObj.Name; " "; shpObj.Name; " ";layerObj.Name
Next I
End If
Next ShpObj
Next PagObj
End Sub
====================================================
====================================================
Note I have found this code at www.mvps.org/visio/vba.htm
====================================================
I've built windows form application and add to it visio ActiveX my
visio object name is DrowingControl1
Thanks