Shapes.AddConnector 方法 (PowerPoint)

创建一个连接符。 返回一个 Shape 对象，该对象表示新的连接器。 添加连接符时，它未连接到任何东西。 在 BeginConnect 和 EndConnect 方法用于附加到文档中的其他形状的开头和结尾的连接器。

语法

表达式。AddConnector (Type、 BeginX、 BeginY、 EndX、 EndY)

expression：一个表示 Shapes 对象的变量。

参数

名称	必需/可选	数据类型	说明
Type	必需	MsoConnectorType	连接符的类型。
BeginX	必需	Single	连接符的起点相对于幻灯片左边缘的水平位置（以磅为单位）。
BeginY	必需	Single	连接符的起点相对于幻灯片上边缘的垂直位置（以磅为单位）。
EndX	必需	Single	连接符的终点相对于幻灯片左边缘的水平位置（以磅为单位）。
EndY	必需	Single	连接符的终点相对于幻灯片上边缘的垂直位置（以磅为单位）。

返回值

Shape

说明

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

示例

本示例向 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

另请参阅

Shapes 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。