Adding Connectors

[Pdj]

I am trying to add a connector to a selected shape. I want the user to be able to select the shape and then run the VBA that will use the selected shape and add a connector. Is this possible?

 

[RickXL]

Hi.

I would think so.

You can try it with the Macro Recorder to see what is going on and you can try this macro that encapsulates some of the ideas:

Sub Connect()
    Dim sh As Shape
    
    With ActiveSheet
        .Shapes.AddShape(msoShapeOval, 200, 100, 100, 100).Name = "Oval_1"
        .Shapes.AddShape(msoShapeOval, 200, 400, 100, 100).Name = "Oval_2"
        Set sh = .Shapes.AddConnector(msoConnectorStraight, 150, 100, 150, 400)
        sh.Line.EndArrowheadStyle = msoArrowheadTriangle
        sh.ConnectorFormat.BeginConnect .Shapes("Oval_1"), 5
        sh.ConnectorFormat.EndConnect .Shapes("Oval_2"), 1
    End With

End Sub

It adds two circles and a connector then it joins the circles using the connector.

Regards,