Word VBA教程: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 类型,必需。标记连接符的结束的垂直位置。

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号