Y
YOUNGHEE
Thank you for your answer.
You mean..
Dim mstObj As Visio.Master
Dim mstObjCopy As Visio.Master
Dim shpObj As Visio.Shape
Dim cellObj As Visio.Cell
For Each mstObj In docObj.Masters
Set mstObjCopy = mstobj.Open
Set shpObj = mstObjCopy.Shapes(1)
Set cellObj = shpObj.Cells("Prop.Description")
You mean..
Dim mstObj As Visio.Master
Dim mstObjCopy As Visio.Master
Dim shpObj As Visio.Shape
Dim cellObj As Visio.Cell
For Each mstObj In docObj.Masters
Set mstObjCopy = mstobj.Open
Set shpObj = mstObjCopy.Shapes(1)
Set cellObj = shpObj.Cells("Prop.Description")