Excel VBA教程:EndConnectedShape属性

返回Shape对象,该对象代表指定的连接符终点连接的图形。只读。

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

Excel VBA教程:EndConnectedShape属性·示例

本示例假定在myDocument 上,有两个用连接符“Conn1To2”连接起来的图形。本示例的代码将向myDocument 添加一个矩形和一个连接符。新添加的连接符的终点将连接到“Conn1To2”的终点所连接的同一个连接站点上,而新添加的连接符的起点则连接到新添加的矩形的第一个连接站点上。


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

上页:Excel VBA教程:EndConnected属性 下页:Excel VBA教程:EndConnectionSite属性

Excel VBA教程:EndConnectedShape属性

Excel VBA教程:EndConnectionSite属性 Excel VBA教程:EndStyle属性
Excel VBA教程:EntireColumn属性 Excel VBA教程:EntireRow属性
Excel VBA教程:EnvelopeVisible属性 Excel VBA教程:ErrorBars属性
Excel VBA教程:ErrorCheckingOptions属性 Excel VBA教程:ErrorMessage属性
Excel VBA教程:Errors属性 Excel VBA教程:ErrorString属性
Excel VBA教程:ErrorTitle属性 Excel VBA教程:EvaluateToError属性
Excel VBA教程:Excel4IntlMacroSheets属性 Excel VBA教程:Excel4MacroSheets属性
Excel VBA教程:Explosion属性 Excel VBA教程:ExtendList属性
Excel VBA教程:Extent属性 Excel VBA教程:ExtrusionColor属性
Excel VBA教程:ExtrusionColorType属性 Excel VBA教程:FeatureInstall属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号