Table of contents
TOC
Collapse the table of content
Expand the table of content

Shapes.AddConnector Method (PowerPoint)

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

Creates a connector. Returns a Shape object that represents the new connector. When a connector is added, it is 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.

Syntax

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

expression A variable that represents a Shapes object.

Parameters

NameRequired/OptionalData TypeDescription
TypeRequiredMsoConnectorTypeThe type of connector.
BeginXRequiredSingleThe horizontal position, measured in points, of the connector's starting point relative to the left edge of the slide.
BeginYRequiredSingleThe vertical position, measured in points, of the connector's starting point relative to the top edge of the slide.
EndXRequiredSingleThe horizontal position, measured in points, of the connector's ending point relative to the left edge of the slide.
EndYRequiredSingleThe vertical position, measured in points, of the connector's ending point relative to the top edge of the slide.

Return Value

Shape

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

See also

Concepts

Shapes Object

© 2018 Microsoft