Changing Cell Property In master!!

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

 

[Russ McKenna]

look at the master.open method

 

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