Straight connector line

[Amoni]

I want to use a straight connectors line instead of a right angle and can´t
change the shape layout. I can't find a way to make the "straight" the
default style. It's very annoying having to change the style of the
connector every time you place a new one into my drawing aslo I this isn´t
easy.
I thought that maybe I could set the shape of the connector in my code in
Visual basic but i don´t know the command.

Any suggestions?

 

[Mark Nelson [MS]]

This is what macro recorder generated when I tried it:

Sub Macro1()

Dim UndoScopeID1 As Long
UndoScopeID1 = Application.BeginUndoScope("Straight Connector")
Application.ActiveWindow.Page.Shapes.ItemFromID(3).CellsSRC(visSectionObject,
visRowShapeLayout, visSLOLineRouteExt).FormulaU = 1
Application.ActiveWindow.Page.Shapes.ItemFromID(3).CellsSRC(visSectionObject,
visRowShapeLayout, visSLORouteStyle).FormulaU = 16
Application.EndUndoScope UndoScopeID1, True

End Sub

To use this in your code, you should replace
Application.ActiveWindow.Page.Shapes.ItemFromID(3) with a Shape object
that refers to your connector.