Question

全部显示

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

expression.AddConnector(Type, BeginX, BeginY, EndX, EndY)

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

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

MsoConnectorType 可以是下列 MsoConnectorType 类型常数之一。

msoConnectorCurve

msoConnectorElbow

msoConnectorStraight

msoConnectorTypeMixed

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