Share via

ConnectorFormat Property [Publisher 2003 VBA Language Reference]

  • Article

Returns a ConnectorFormat object that contains connector formatting properties. Applies to Shape or ShapeRange objects that represent connectors.

expression.ConnectorFormat

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

Example

This example adds two rectangles to the first page in the active publication and connects them with a curved connector.

Dim shpRect1 As Shape
Dim shpRect2 As Shape

With ActiveDocument.Pages(1).Shapes

    ' Add two new rectangles.
    Set shpRect1 = .AddShape(Type:=msoShapeRectangle, _
        Left:=100, Top:=50, Width:=200, Height:=100)
    Set shpRect2 = .AddShape(Type:=msoShapeRectangle, _
        Left:=300, Top:=300, Width:=200, Height:=100)

    ' Add a new curved connector.
    With .AddConnector(Type:=msoConnectorCurve, _
            BeginX:=0, BeginY:=0, EndX:=100, EndY:=100) _
            .ConnectorFormat

        ' Connect the new connector to the two rectangles.
        .BeginConnect ConnectedShape:=shpRect1, ConnectionSite:=1
        .EndConnect ConnectedShape:=shpRect2, ConnectionSite:=1

        ' Reroute the connector to create the shortest path.
        .Parent.RerouteConnections
    End With

End With

Applies to | Shape Object | ShapeRange Collection