Свойство ShapeRange.ConnectionSiteCount (Excel)

Возвращает количество сайтов подключения на указанной фигуре. Только для чтения, Long.

Синтаксис

expression. ConnectionSiteCount

Выражение Выражение, возвращающее объект ShapeRange .

Пример

В этом примере два прямоугольника добавляются в 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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.