Excel VBA教程:AddConnector方法

创建连接符。返回一个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 类型,必需。相对于文档的左上角,以磅为单位给出连接符终点的垂直位置。

说明

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

Excel VBA教程:AddConnector方法·示例

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


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

上页:Excel VBA教程:AddComment方法 下页:Excel VBA教程:AddCurve方法

Excel VBA教程:AddConnector方法

Excel VBA教程:AddCurve方法 Excel VBA教程:AddCustomList方法
Excel VBA教程:AddDataField方法 Excel VBA教程:AddDiagram方法
Excel VBA教程:AddFields方法 Excel VBA教程:AddFormControl方法
Excel VBA教程:AddItem方法 Excel VBA教程:AddLabel方法
Excel VBA教程:AddLine方法 Excel VBA教程:AddMemberPropertyField方法
Excel VBA教程:AddNode方法 Excel VBA教程:AddNodes方法
Excel VBA教程:AddOLEObject方法 Excel VBA教程:AddPageItem方法
Excel VBA教程:AddPicture方法 Excel VBA教程:AddPolyline方法
Excel VBA教程:AddReplacement方法 Excel VBA教程:AddSet方法
Excel VBA教程:AddShape方法 Excel VBA教程:AddTextbox方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号