全部显示

AddConnector 方法

创建一个连接符。返回一个代表新连接符的 Shape 对象。添加一个连接符时，它没有连接到任何对象。使用 BeginConnect 和 EndConnect 方法可将连接符的头和尾连接到文档中的其他形状上。

expression  必选。该表达式返回“应用于”列表中的对象之一。

Type  必选。MsoConnectorType 类型。连接符的类型。

BeginX  必选。Single 类型。连接符的起点相对于幻灯片左边缘的水平位置（以磅为单位）。

BeginY  必选。Single 类型。连接符的起点相对于幻灯片上边缘的垂直位置（以磅为单位）。

EndX  必选。Single 类型。连接符的终点相对于幻灯片左边缘的水平位置（以磅为单位）。

EndY  必选。Single 类型。连接符的终点相对于幻灯片上边缘的垂直位置（以磅为单位）。

说明

将一个连接符连接到某个形状时，如果必要，该连接符的长度和位置会自动调整。因此，如果要将一个连接符连接到其他形状，则与添加该连接符时指定的位置和长度无关。

示例

本示例在 myDocument 中添加两个矩形，然后用曲线连接符将它们连接起来。请注意，将连接符连接到矩形上时，连接符的长度和位置会自动调整；因此，它与添加标注时指定的位置和长度是无关的（长度不能为零）。

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