Flowchart Q - Can you set the AutoShape "+" pointer to be always on?

[rubbis_with_excel]

Hi,

This is probably going to be a badly worded request, but I'm using Excel AutoShapes to draw flowcharts.

I've created some script to draw boxes and select Elbow Connectors. However, is there a way to "fix" the AutoShape tool to always be on?

To explain, if I have a number of shapes that I wish to connect, I have to select AutoShapes > Connectors > Elbow Connector each time. Is there a way to set it to default to this so I can connect 2 shapes together and then Excel is automatically ready to connect another 2, with the '+' pointer?

I think this is possible in Visio, but my company is too cheap to buy it

I hope that makes sense, I've had trouble wording it correctly.

Thanks.

 

[northwolves]

Not very sure what you wan,a recorded macro.

Sub Macro1()
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 51#, 318#, 102.75, 65.25).Select
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 225.75, 344.25, 117#, 95.25).Select
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 128.25, 480#, 140.25, 92.25).Select
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 331.5, 490.5, 173.25, 99#).Select
    ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 153.75, 351#, 69#, 24.75).Select
    Selection.ShapeRange.Flip msoFlipHorizontal
    Selection.ShapeRange.Flip msoFlipVertical
    Selection.ShapeRange.ConnectorFormat.BeginConnect ActiveSheet.Shapes(1), 4
    Selection.ShapeRange.ConnectorFormat.EndConnect ActiveSheet.Shapes(2), 2
    ActiveSheet.Shapes.AddLine(246#, 443.25, 276.75, 481.5).Select
    Selection.ShapeRange.Flip msoFlipHorizontal
    ActiveSheet.Shapes.AddLine(272.25, 534#, 330.75, 536.25).Select
    Application.CommandBars("AutoShapes").Visible = False
End Sub

Hope it helps.