AddConnector Method

Microsoft PowerPoint Visual Basic

Show All

AddConnector Method

       

Creates a connector. Returns a Shape object that represents the new connector. When a connector is added, it's not connected to anything. Use the BeginConnect and EndConnect methods to attach the beginning and end of a connector to other shapes in the document.

expression.AddConnector(Type, BeginX, BeginY, EndX, EndY)

expression   Required. An expression that returns one of the objects in the Applies To list.

Type  Required MsoConnectorType. The type of connector.

MsoConnectorType can be one of these MsoConnectorType constants.
msoConnectorCurve
msoConnectorElbow
msoConnectorStraight
msoConnectorTypeMixed

BeginX  Required Single. The horizontal position, measured in points, of the connector's starting point relative to the left edge of the slide.

BeginY   Required Single. The vertical position, measured in points, of the connector's starting point relative to the top edge of the slide.

EndX   Required Single. The horizontal position, measured in points, of the connector's ending point relative to the left edge of the slide.

EndY   Required Single. The vertical position, measured in points, of the connector's ending point relative to the top edge of the slide.

Remarks

When you attach a connector to a shape, the size and position of the connector are automatically adjusted, if necessary. Therefore, if you're going to attach a connector to other shapes, the position and dimensions you specify when adding the connector are irrelevant.

Example

This example adds two rectangles to myDocument and connects them with a curved connector. Note that when you attach the connector to the rectangles, the size and position of the connector are automatically adjusted; therefore, the position and dimensions you specify when adding the callout are irrelevant (dimensions must be nonzero).

Sub NewConnector()

    Dim shpShapes As Shapes
    Dim shpFirst As Shape
    Dim shpSecond As Shape

    Set shpShapes = ActivePresentation.Slides(1).Shapes
    Set shpFirst = shpShapes.AddShape(Type:=msoShapeRectangle, _
        Left:=100, Top:=50, Width:=200, Height:=100)
    Set shpSecond = shpShapes.AddShape(Type:=msoShapeRectangle, _
        Left:=300, Top:=300, Width:=200, Height:=100)
    With shpShapes.AddConnector(Type:=msoConnectorCurve, BeginX:=0, _
            BeginY:=0, EndX:=100, EndY:=100).ConnectorFormat
        .BeginConnect ConnectedShape:=shpFirst, ConnectionSite:=1
        .EndConnect ConnectedShape:=shpSecond, ConnectionSite:=1
        .Parent.RerouteConnections
    End With

End Sub