ConnectorFormat.BeginConnectedShape Property
Returns a CanvasShapes object that represents the shape that the beginning 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 BeginConnectedShape As Shape
Get
'Usage
Dim instance As ConnectorFormat
Dim value As Shape
value = instance.BeginConnectedShape
Shape BeginConnectedShape { get; }
Property Value
Type: Microsoft.Office.Interop.PowerPoint.Shape
Shape
Remarks
If the beginning of the specified connector isn't attached to a shape, this property generates an error.
Examples
This example assumes that the first 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 beginning of the new connector will be attached to the same connection site as the beginning of the connector named "Conn1To2," and the end 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, 450, 190, 200, 100)
.AddConnector(msoConnectorCurve, 0, 0, 10, 10) _
.Name = "Conn1To3"
With .Item("Conn1To2").ConnectorFormat
beginConnSite1 = .BeginConnectionSite
Set beginConnShape1 = .BeginConnectedShapeEnd With
With .Item("Conn1To3").ConnectorFormat
.BeginConnect beginConnShape1, beginConnSite1
.EndConnect r3, 1
End With
End With