ConnectorFormat.EndConnectedShape Property
Returns a CanvasShapes object that represents the shape that the end of the specified connector is attached to. Read-only.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
ReadOnly Property EndConnectedShape As Shape
Get
'Usage
Dim instance As ConnectorFormat
Dim value As Shape
value = instance.EndConnectedShape
Shape EndConnectedShape { get; }
Property Value
Type: Microsoft.Office.Interop.PowerPoint.Shape
Shape
Remarks
If the end of the specified connector isn't attached to a shape, this property generates an error.
Examples
This example assumes that the fist slide in the active presentation already contains two shapes attached by a connector named "Conn1To2." The code adds a rectangle and a connector to the first slide. The end of the new connector will be attached to the same connection site as the end of the connector named "Conn1To2," and the beginning of the new connector will be attached to connection site one on the new rectangle.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
Set r3 = .AddShape(msoShapeRectangle, 100, 420, 200, 100)
.AddConnector(msoConnectorCurve, 0, 0, 10, 10) _
.Name = "Conn1To3"
With .Item("Conn1To2").ConnectorFormat
endConnSite1 = .EndConnectionSite
Set endConnShape1 = .EndConnectedShapeEnd With
With .Item("Conn1To3").ConnectorFormat
.BeginConnect r3, 1
.EndConnect endConnShape1, endConnSite1
End With
End With