Excel VBA教程:ConnectionSiteCount属性

返回指定的形状上连接站点的数目。Long 类型,只读。

Excel VBA教程:ConnectionSiteCount属性·示例

本示例向myDocument 中添加了两个矩形,然后用两条连接符将这两个矩形连接起来。两条连接符的起点都连接在第一个矩形的第一个连接站点上;而两条连接符的终点则分别连接在第二个矩形的第一个和最后一个连接站点上。


Set myDocument = Worksheets(1)
Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, _
    100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, _
    300, 300, 200, 100)
lastsite = secondRect.ConnectionSiteCount
With s.AddConnector(msoConnectorCurve, _
        0, 0, 100, 100).ConnectorFormat
    .BeginConnect ConnectedShape:=firstRect, _
        ConnectionSite:=1
    .EndConnect ConnectedShape:=secondRect, _
        ConnectionSite:=1
End With
With s.AddConnector(msoConnectorCurve, _
        0, 0, 100, 100).ConnectorFormat
    .BeginConnect ConnectedShape:=firstRect, _
        ConnectionSite:=1
    .EndConnect ConnectedShape:=secondRect, _
        ConnectionSite:=lastsite
End With

上页:Excel VBA教程:Connection属性 下页:Excel VBA教程:Connector属性

Excel VBA教程:ConnectionSiteCount属性

Excel VBA教程:Connector属性 Excel VBA教程:ConnectorFormat属性
Excel VBA教程:ConsolidationFunction属性 Excel VBA教程:ConsolidationOptions属性
Excel VBA教程:ConsolidationSources属性 Excel VBA教程:ConstrainNumeric属性
Excel VBA教程:Container属性 Excel VBA教程:Contrast属性
Excel VBA教程:ControlCharacters属性 Excel VBA教程:ControlFormat属性
Excel VBA教程:CopyObjectsWithCells属性 Excel VBA教程:Corners属性
Excel VBA教程:CorrectCapsLock属性 Excel VBA教程:CorrectSentenceCap属性
Excel VBA教程:Count属性 Excel VBA教程:CreateBackup属性
Excel VBA教程:Creator属性 Excel VBA教程:Criteria1属性
Excel VBA教程:Criteria2属性 Excel VBA教程:CropBottom属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号