创建连接符。返回一个 Shape 对象,该对象代表新建的连接符。当添加连接符时,它并不连接任何对象。可用 BeginConnect 方法和 EndConnect 方法将连接符的起点和终点连接到文档中的其他图形上。
expression.AddConnector(Type, BeginX, BeginY, EndX, EndY)
expression 必需。该表达式返回“应用于”列表中的对象之一。
Type MsoConnectorType 类型,必需。要添加的连接符的类型。
MsoConnectorType 可为以下 MsoConnectorType 常量之一。 |
msoConnectorElbow |
msoConnectorTypeMixed |
msoConnectorCurve |
msoConnectorStraight |
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