Visio Guy

Hi all.  wondering if anyone can help me with this basic question.

I am trying to change the outline of a basic shape in an org chart, by modifying its lines via the geometry section of the shape sheet.  I need to do this in code.  in the sample below, i'm trying to turn a box/rectangle into a triangle

using the macro recorder (ya i'm that basic), and some tweeks, i came up with the following: 


Sub ToTriangle()
    Dim ThisShape As Visio.Shape

       For Each ThisShape In Application.ActiveWindow.Selection
 
          If (ThisShape.Style <> "Connector") Then
            Application.ActiveWindow.Shape.CellsSRC(visSectionFirstComponent, 2, 0).FormulaU = "Width * 0.5"
            Application.ActiveWindow.Shape.CellsSRC(visSectionFirstComponent, 3, 1).FormulaU = "Height * 0"
            Application.ActiveWindow.Shape.DeleteRow visSectionFirstComponent, 4
        End If
       
    Next

End Sub

First you should replace

Application.ActiveWindow.Shape.CellsSRC.....

with

ThisShape.CellsSRC...

as that is the shape you want to change.