Поделиться через

Свойство Shape.ConnectionSiteCount (Издатель)

  • Статья

Возвращает значение Long , указывающее количество сайтов подключения в текущем объекте Shape . Только для чтения.

Синтаксис

expression. ConnectionSiteCount

Выражение Переменная, представляющая объект Shape .

Замечания

Количество сайтов подключения зависит от геометрии фигуры. Прямоугольные объекты, включая таблицы и веб-элементы управления, скорее всего, будут иметь четыре сайта подключения, по одному центру по каждому краю фигуры.

Пример

В этом примере два прямоугольника добавляются в активную публикацию и соединяются с двумя соединителями. Начало обоих соединителей присоединяется к сайту подключения по одному на первом прямоугольнике; концы соединителей присоединяются к первому и последнему сайтам подключения второго прямоугольника. Затем он подсчитывает количество подключений в первом прямоугольнике.

Sub Connections() 
 
 Dim shpNew As Shapes 
 Dim shpFirstRect As Shape 
 Dim shpSecondRect As Shape 
 Dim intLastSite As Integer 
 Dim intCount As Integer 
 
 Set shpNew = Application.ActiveDocument _ 
 .MasterPages(Item:=1).Shapes 
 Set shpFirstRect = shpNew.AddShape(Type:=msoShapeRectangle, _ 
 Left:=100, Top:=50, Width:=200, Height:=100) 
 Set shpSecondRect = shpNew.AddShape(msoShapeRectangle, _ 
 Left:=300, Top:=300, Width:=200, Height:=100) 
 varLastSite = shpSecondRect.ConnectionSiteCount 
 
 ' Add the first connector from rectangle 1, 
 ' site 1 to rectangle 2, site 1. 
 With shpNew.AddConnector(Type:=msoConnectorCurve, _ 
 BeginX:=0, BeginY:=0, EndX:=100, EndY:=100) _ 
 .ConnectorFormat 
 .BeginConnect ConnectedShape:=shpFirstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=shpSecondRect, ConnectionSite:=1 
 End With 
 
 ' Add the second connector from rectangle 1, 
 ' site 1 to rectangle 2, site 2. 
 With shpNew.AddConnector(Type:=msoConnectorCurve, _ 
 BeginX:=0, BeginY:=0, EndX:=100, EndY:=100) _ 
 .ConnectorFormat 
 .BeginConnect ConnectedShape:=shpFirstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=shpSecondRect, _ 
 ConnectionSite:=intLastSite 
 End With 
 
 intCount = shpFirstRect.ConnectionSiteCount 
 
End Sub

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

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