PowerPoint VBA教程:AddConnector方法

创建一个连接符。返回一个代表新连接符的Shape对象。添加一个连接符时,它没有连接到任何对象。使用BeginConnectEndConnect方法可将连接符的头和尾连接到文档中的其他形状上。

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

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

Type  必选。MsoConnectorType 类型。连接符的类型。

MsoConnectorType 可以是下列 MsoConnectorType 类型常数之一。
msoConnectorCurve
msoConnectorElbow
msoConnectorStraight
msoConnectorTypeMixed

BeginX  必选。Single 类型。连接符的起点相对于幻灯片左边缘的水平位置(以磅为单位)。

BeginY  必选。Single 类型。连接符的起点相对于幻灯片上边缘的垂直位置(以磅为单位)。

EndX  必选。Single 类型。连接符的终点相对于幻灯片左边缘的水平位置(以磅为单位)。

EndY  必选。Single 类型。连接符的终点相对于幻灯片上边缘的垂直位置(以磅为单位)。

说明

将一个连接符连接到某个形状时,如果必要,该连接符的长度和位置会自动调整。因此,如果要将一个连接符连接到其他形状,则与添加该连接符时指定的位置和长度无关。

VBA示例

本示例在 myDocument 中添加两个矩形,然后用曲线连接符将它们连接起来。请注意,将连接符连接到矩形上时,连接符的长度和位置会自动调整;因此,它与添加标注时指定的位置和长度是无关的(长度不能为零)。


Sub NewConnector()
    Dim shpShapes As Shapes
    Dim shpFirst As Shape
    Dim shpSecond As Shape
    Set shpShapes = ActivePresentation.Slides(1).Shapes
    Set shpFirst = shpShapes.AddShape(Type:=msoShapeRectangle, _
        Left:=100, Top:=50, Width:=200, Height:=100)
    Set shpSecond = shpShapes.AddShape(Type:=msoShapeRectangle, _
        Left:=300, Top:=300, Width:=200, Height:=100)
    With shpShapes.AddConnector(Type:=msoConnectorCurve, BeginX:=0, _
            BeginY:=0, EndX:=100, EndY:=100).ConnectorFormat
        .BeginConnect ConnectedShape:=shpFirst, ConnectionSite:=1
        .EndConnect ConnectedShape:=shpSecond, ConnectionSite:=1
        .Parent.RerouteConnections
    End With
End Sub

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

PowerPoint VBA教程:AddConnector方法

PowerPoint VBA教程:AddCurve方法 PowerPoint VBA教程:AddDiagram方法
PowerPoint VBA教程:AddEffect方法 PowerPoint VBA教程:AddLabel方法
PowerPoint VBA教程:AddLine方法 PowerPoint VBA教程:AddMediaObject方法
PowerPoint VBA教程:AddNode方法 PowerPoint VBA教程:AddNodes方法
PowerPoint VBA教程:AddOLEObject方法 PowerPoint VBA教程:AddPeriods方法
PowerPoint VBA教程:AddPicture方法 PowerPoint VBA教程:AddPlaceholder方法
PowerPoint VBA教程:AddPolyline方法 PowerPoint VBA教程:AddShape方法
PowerPoint VBA教程:AddTable方法 PowerPoint VBA教程:AddTextbox方法
PowerPoint VBA教程:AddTextEffect方法 PowerPoint VBA教程:AddTitle方法
PowerPoint VBA教程:AddTitleMaster方法 PowerPoint VBA教程:AddToFavorites方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号