Changing Cell Property In Master (one more)

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")
 
Top