Class ConnectorFormat (PowerPoint VBA)

Contains properties and methods that apply to connectors.

Set

To use a ConnectorFormat class variable it first needs to be instantiated, for example

Dim cft as ConnectorFormat
Set cft = ActiveWindow.RangeFromPoint.ConnectorFormat

The following procedures can be used to set variables of type ConnectorFormat: Shape.ConnectorFormat and ShapeRange.ConnectorFormat

Methods

Other Methods

BeginConnect - Attaches the beginning of the specified connector to a specified shape.

Dim lngConnectionSite As Long: lngConnectionSite = 1
ActivePresentation.Slides(1).Shapes(2).ConnectorFormat.BeginConnect ConnectedShape:=, ConnectionSite:=lngConnectionSite

EndConnect - Attaches the end of the specified connector to a specified shape.

Dim lngConnectionSite As Long: lngConnectionSite = 1 
ActivePresentation.Slides(1).Shapes(2).ConnectorFormat.EndConnect ConnectedShape:=, ConnectionSite:=lngConnectionSite

Properties

BeginConnected determines whether the beginning of the specified connector is connected to a shape.

Dim mtsBeginConnected As Office.MsoTriState
mtsBeginConnected = ActivePresentation.Slides(1).Shapes(2).ConnectorFormat.BeginConnected

BeginConnectedShape returns a Shape object that represents the shape that the beginning of the specified connector is attached to.

Dim shpBeginConnectedShape As Shape
Set shpBeginConnectedShape = ActivePresentation.Slides(1).Shapes(2).ConnectorFormat.BeginConnectedShape

BeginConnectionSite returns an integer that specifies the connection site that the beginning of a connector is connected to.

Dim lngBeginConnectionSite As Long
lngBeginConnectionSite =  1 ActivePresentation.Slides(1).Shapes(2).ConnectorFormat.BeginConnectionSite

EndConnected determines whether the end of the specified connector is connected to a shape.

Dim mtsEndConnected As Office.MsoTriState
mtsEndConnected = ActivePresentation.Slides(1).Shapes(2).ConnectorFormat.EndConnected

EndConnectedShape returns a Shape object that represents the shape that the end of the specified connector is attached to.

Dim shpEndConnectedShape As Shape
Set shpEndConnectedShape = ActivePresentation.Slides(1).Shapes(2).ConnectorFormat.EndConnectedShape

EndConnectionSite returns an integer that specifies the connection site that the end of a connector is connected to.

Dim lngEndConnectionSite As Long
lngEndConnectionSite = 1 ActivePresentation.Slides(1).Shapes(2).ConnectorFormat.EndConnectionSite

Parent returns the parent object for the specified object.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.ConnectorFormat.Parent

Type represents the type of connector.

ActiveWindow.RangeFromPoint.ConnectorFormat.Type = msoConnectorTypeMixed