PowerPoint VBA教程:EndConnectionSite属性

返回一个整数,该整数指定连接符终点的连接位置。只读。Long 类型。

注意  如果指定的连接符终点并未连接到形状上,则该属性产生一个错误。

VBA示例

本示例假定活动演示文稿的第一张幻灯片已经包含两个形状,且通过连接符“Conn1To2”相连。而示例中的代码会向第一张幻灯片中添加一个矩形框和一个连接符。这个新建的连接符起点将连接到与“Conn1To2”的起点相同的地方。终点则连接到新建的矩形框的第一个连接点上。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    Set r3 = .AddShape(msoShapeRectangle, 100, 420, 200, 100)
    .AddConnector(msoConnectorCurve, 0, 0, 10, 10) _
        .Name = "Conn1To3"
    With .Item("Conn1To2").ConnectorFormat
        endConnSite1 = .EndConnectionSite
        Set endConnShape1 = .EndConnectedShape
    End With
    With .Item("Conn1To3").ConnectorFormat
        .BeginConnect r3, 1
        .EndConnect endConnShape1, endConnSite1
    End With
End With

上页:PowerPoint VBA教程:EndConnectedShape属性 下页:PowerPoint VBA教程:EndingSlide属性

PowerPoint VBA教程:EndConnectionSite属性

PowerPoint VBA教程:EndingSlide属性 PowerPoint VBA教程:EntryEffect属性
PowerPoint VBA教程:EnvelopeVisible属性 PowerPoint VBA教程:Exit属性
PowerPoint VBA教程:ExtraColors属性 PowerPoint VBA教程:ExtrusionColor属性
PowerPoint VBA教程:ExtrusionColorType属性 PowerPoint VBA教程:FarEastLineBreakControl属性
PowerPoint VBA教程:FarEastLineBreakLanguage属性 PowerPoint VBA教程:FarEastLineBreakLevel属性
PowerPoint VBA教程:FeatureInstall属性 PowerPoint VBA教程:FileDialog属性
PowerPoint VBA教程:FileName属性 PowerPoint VBA教程:FileSearch属性
PowerPoint VBA教程:Fill属性 PowerPoint VBA教程:FirstChild属性
PowerPoint VBA教程:FirstMargin属性 PowerPoint VBA教程:FirstSlideNumber属性
PowerPoint VBA教程:FitToPage属性 PowerPoint VBA教程:FolderSuffix属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号