Set "HideTag" from VBA

[Wendy]

I Would like to turn off the tags on my shapes from VBA.
How is that done?

I tried
Vshapes.item(i).Cells("user.PEHideTag") = 1

where
dim Vshapes As Visio.shapes

but it doesnt work.

 

[Chris Roth [ Visio MVP ]]

OK, Process Engineering - took me a while...

To do this for all shapes at once, you need to get hold of the "Page Shape"
to do this.

Dim shp as Visio.Shape
set shp = Visio.ActivePage.PageSheet
shp.cells("User.PEHideTags").ResultIU = 1


the syntax for changing cells is:

shape.Cells("User.PEHideTags").ResultIU = 1

or

shape.Cells("User.PEHideTags").Formula = "1"



--

Hope this helps,

Chris Roth
Visio MVP