Change shape properties on multiple shapes

[Klaushh]

Hi
I'm new to this forum, so excuse me if this has been replied in an earlier topic.

Can you select mulitple shapes and change the shape properties of them all at once?

Let me explain:
I have a large amount of diagrams (in multiple files) showing different parts of a hydraulic system. On the diagrams there is a lot of shapes which i want to change the properties on, but selecting them one by one takes for ever.
If i manually select, for instance 1 single Restrictor valve, i can right click and change it directly from adjustable to non-adjustable. Do anyone know how to do this on multiple shapes at a time?

Thanks to anyone who might be able to help me out. 

\Klaus
Hydraulic Project Engineer

[Jumpy]

Hello Klaus,

welcome to the forum.

Maybe Paul Herber's Super Utilities can change multiple shape properties at once, you find it here:

http://www.sandrila.co.uk/visio-utilities/

But there is afaik no built in way in Visio and even Paul's tool (I'd guess) won't be able to do a right mouse click action simultanously on multiple shapes.

Imho you have to write your own small VBA macros, that change a desired shape property in all selected shapes. Sth. like this:

Code Select Expand


Sub ChangeProperty(aProperty as String, aFormula as String)
  Dim shp as Shape
  For Each shp in ActiveWindow.Selection.Shapes
    If shp.CellExists(aproperty,false) then
      shp.Cells(aproperty).FormulaU=aFormula
    End If
  Next shp
End Sub

Sub SetValvesAdjustable()
  ChangeProperty("Prop.Adjustable","TRUE")
End Sub