全部显示

AddConnector 方法

创建连接符。返回一个 Shape 对象，该对象代表新建的连接符。当添加连接符时，它并不连接任何对象。可用 BeginConnect 方法和 EndConnect 方法将连接符的起点和终点连接到文档中的其他图形上。

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

Type   MsoConnectorType 类型，必需。要添加的连接符的类型。

BeginX   Single 类型，必需。相对于文档的左上角，以磅为单位给出连接符起点的水平位置。

BeginY   Single 类型，必需。相对于文档的左上角，以磅为单位给出连接符起点的垂直位置。

EndX   Single 类型，必需。相对于文档的左上角，以磅为单位给出连接符终点的水平位置。

EndY   Single 类型，必需。相对于文档的左上角，以磅为单位给出连接符终点的垂直位置。

说明

将连接符连接到图形上时，连接符的大小和位置将自动进行必要的调整。因此，将连接符连接到其他图形上时，添加连接符时所指定的初始大小和位置是无关紧要的。

示例

下例将曲线连接符添加到新建工作表的画布上。

Sub AddCanvasConnector()

    Dim wksNew As Worksheet
    Dim shpCanvas As Shape

    Set wksNew = Worksheets.Add

    'Add drawing canvas to new worksheet
    Set shpCanvas = wksNew.Shapes.AddCanvas( _
        Left:=150, Top:=150, Width:=200, Height:=300)

    'Add connector to the drawing canvas
    shpCanvas.CanvasItems.AddConnector _
        Type:=msoConnectorStraight, BeginX:=150, _
        BeginY:=150, EndX:=200, EndY:=200

End Sub