Changing Cell Property In master!!

Y

YOUNGHEE

I want to change Custom Properties in Master by using Database.


Dim mstObj As Visio.Master
Dim shpObj As Visio.Shape
Dim cellObj As Visio.Cell

For Each mstObj In docObj.Masters
Set shpObj = mstObj.Shapes(1)
Set cellObj = shpObj.Cells("Prop.Description")
 
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