Visio - How to correct Multiple shapes at same time in Shapesheet

[keagan]

I have multiple shapes that I want to turn off the "protect feature"
in Shapesheet, without changing the data, and I don't want to have to
change them one at a time... over 1000 items...I can select them, but
only the first one selected will "stick" when I save the changes.....
What am I doing wrong? Currently using Visio 2002...
Any suggestions?

 

[John Goldsmith]

Hello Keagan,

You can select and number of shapes and changes specific Custom Properties
in the Custom Properties window, but you can't change the shapesheet items
you're after without code I'm afraid.

If you'd like to try some code (apologies if I'm teaching you to suck eggs
here) then you could have a go with the code below. Paste in the following
to the VBE (Alt+ F11, then Insert/Module, paste the code in and then press
F5 to execute):

Sub ChangeSelectedShapes()
Dim shp As Visio.Shape
If Not Application.ActiveWindow.Selection Is Nothing Then
For Each shp In Application.ActiveWindow.Selection
'Change the cell name to the one you want
If shp.CellExistsU("LockWidth", 0) = True Then
shp.CellsU("LockWidth").FormulaU = 1
End If
Next shp
End If
End Sub

There are a number of protect type cells so you'll need to change my example
"LockWidth" to the one you want.

If you're at all unsure of the above make a copy of your file first before
you experiment!

Hope that helps.

Best regards

John


John Goldsmith
www.visualSignals.co.uk