PowerPoint VBA教程:RerouteConnections方法

重置连接符使其以最短的路径连接形状。重置时,RerouteConnections方法可能会断开连接符的两端并将其重新连接到形状的其他位置。

该方法重置指定形状的所有连接符,如果指定形状为一个连接符,则重置该连接符。

expression.RerouteConnections

expression  必选。该表达式返回一个 Shape 或 ShapeRange对象。

说明

如果该方法应用于一个连接符,则只重置该连接符;如果该方法应用于一个已连接的形状,则重置该形状上所有的连接符。

VBA示例

本示例将两个矩形添加到myDocument,用曲线连接符连接两个矩形,然后重置连接符使两个矩形间采用最短的路径。请注意,RerouteConnections方法用于调整连接符的大小和位置并决定要连接到哪个连接位置,因此最初为 ConnectionSite参数指定与 BeginConnect 和 EndConnect方法一起使用的值是不相关的。


Set myDocument = ActivePresentation.Slides(1)
Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)
Set newConnector = s _
    .AddConnector(msoConnectorCurve, 0, 0, 100, 100)
With newConnector.ConnectorFormat
    .BeginConnect firstRect, 1
    .EndConnect secondRect, 1
End With
newConnector.RerouteConnections

上页:PowerPoint VBA教程:ReplyWithChanges方法 下页:PowerPoint VBA教程:ResetRotation方法

PowerPoint VBA教程:RerouteConnections方法

PowerPoint VBA教程:ResetRotation方法 PowerPoint VBA教程:ResetSlideTime方法
PowerPoint VBA教程:RotatedBounds方法 PowerPoint VBA教程:RtlRun方法
PowerPoint VBA教程:Run方法 PowerPoint VBA教程:Runs方法
PowerPoint VBA教程:Save方法 PowerPoint VBA教程:SaveAs方法
PowerPoint VBA教程:SaveCopyAs方法 PowerPoint VBA教程:ScaleHeight方法
PowerPoint VBA教程:ScaleWidth方法 PowerPoint VBA教程:ScrollIntoView方法
PowerPoint VBA教程:Select方法 PowerPoint VBA教程:SelectAll方法
PowerPoint VBA教程:SendForReview方法 PowerPoint VBA教程:Sentences方法
PowerPoint VBA教程:SetCMYK Method PowerPoint VBA教程:SetEditingType方法
PowerPoint VBA教程:SetExtrusionDirection方法 PowerPoint VBA教程:SetPasswordEncryptionOptions方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号