Edit Master Cells

[John]

Hi there,

Can anyone tell me why I can't do this:?

Dim shpText As Master

Set shpText = Application.ActiveDocument.Masters.Item("TextShp")

If ckNonPrinting.Value = True Then
shpText.CellsSRC(visSectionObject, visRowMisc,
visNonPrinting).Formula = "=True"
Else
shpText.CellsSRC(visSectionObject, visRowMisc,
visNonPrinting).Formula = "=False"
End If

I get an error saying object doesn't support method, but what's stopping me
changing shapesheet formulas in a master before I drop it onto the page?

Thanks in advance.

John

 

[JuneTheSecond]

A master consists of shapes. Cell ia a member of shape.
Your shpText is not a shape, but a master.
So, "shpText.CellsSRC(visSectionObject...." should be read as
"shpText.shapes(1).CellsSRC(visSectionObject...." , if the master consists
of only one shape.

 

[John]

Perfect. Thanks June.

Best regards

John

 

[David Parker [Visio MVP]]

You should not edit a master directly in code, but instead create a clone
using master.Open, then close it

 

[John]

Hi David,

Thanks for this. I'll follow your advice and open the master before
changing its properties.

Best regards

John