Excel VBA教程:BeginConnectedShape属性

返回Shape对象,该对象代表连接在指定的连接符的起点上的形状。只读。

注意  如果指定的连接符的起点并未连接到任何形状上,那么本属性将产生错误。

Excel VBA教程:BeginConnectedShape属性·示例

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


Set myDocument = Worksheets(1)
With myDocument.Shapes
    Set r3 = .AddShape(msoShapeRectangle, 450, 190, 200, 100)
    .AddConnector(msoConnectorCurve, 0, 0, 10, 10).Name = _
        "Conn1To3"
    With .Item("Conn1To2").ConnectorFormat
        beginConnSite1 = .BeginConnectionSite
        Set beginConnShape1 = .BeginConnectedShape
    End With
    With .Item("Conn1To3").ConnectorFormat
        .BeginConnect beginConnShape1, beginConnSite1
        .EndConnect r3, 1
    End With
End With

上页:Excel VBA教程:BeginConnected属性 下页:Excel VBA教程:BeginConnectionSite属性

Excel VBA教程:BeginConnectedShape属性

Excel VBA教程:BeginConnectionSite属性 Excel VBA教程:Black属性
Excel VBA教程:BlackAndWhite属性 Excel VBA教程:BlackWhiteMode属性
Excel VBA教程:Bold属性 Excel VBA教程:Border属性
Excel VBA教程:Borders属性 Excel VBA教程:BottomMargin属性
Excel VBA教程:BottomRightCell属性 Excel VBA教程:Brightness属性
Excel VBA教程:BubbleScale属性 Excel VBA教程:BubbleSizes属性
Excel VBA教程:Build属性 Excel VBA教程:BuiltIn属性
Excel VBA教程:BuiltinDocumentProperties属性 Excel VBA教程:CacheIndex属性
Excel VBA教程:CalculateBeforeSave属性 Excel VBA教程:CalculatedMembers属性
Excel VBA教程:Calculation属性 Excel VBA教程:CalculationInterruptKey属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号