AddConnector 方法

返回一个 Shape 对象，该对象代表画布上两个图形之间的连接线。

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

expression 必需。该表达式返回一个 CanvasShapes 对象。

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

MsoConnectorType 可以是下列 MsoConnectorType 常量之一：

msoConnectorCurve

msoConnectorElbow

msoConnectorStraight

msoConnectorTypeMixed 不用于该方法。

BeginX String 类型，必需。标记连接符的开始的水平位置。

BeginY String 类型，必需。标记连接符的开始的垂直位置。

EndX Single 类型，必需。标记连接符的结束的水平位置。

EndY Single 类型，必需。标记连接符的结束的垂直位置。

示例

本示例在新文档的新画布上添加一个曲线连接符。

Sub AddCanvasConnector()

    Dim docNew As Document
    Dim shpCanvas As Shape

    Set docNew = Documents.Add

    'Add drawing canvas to new document
    Set shpCanvas = docNew.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