Бөлісу құралы:

Объект ConnectorFormat (Excel)

Содержит свойства и методы, применяемые к соединителям.

Замечания

Соединитель — это линия, которая присоединяет две другие фигуры в точках, называемых сайтами подключения. При переупорядочении соединенных фигур геометрия соединителя будет автоматически изменена, чтобы фигуры оставались связанными.

Сайты подключений обычно нумеруются в соответствии с правилами, представленными в следующей таблице.

Тип фигуры Схема нумерирования сайта подключения
Автофигуры, объекты WordArt, рисунки и объекты OLE Сайты подключения нумеруются, начиная с верхней части и продолжая против часовой стрелки.
Бесплатные формы Сайты соединения — это вершины, и они соответствуют номерам вершин.

Используйте свойство ConnectorFormat объекта Shape , чтобы вернуть объект ConnectorFormat . Используйте методы BeginConnect и EndConnect , чтобы присоединить концы соединителя к другим фигурам в документе. Используйте метод RerouteConnections объекта Shape , чтобы автоматически найти кратчайший путь между двумя фигурами, соединенными соединителем. Используйте свойство Connector , чтобы узнать, является ли фигура соединителем.

Примечание.

Размер и позиция назначаются при добавлении соединителя в коллекцию Фигур, но размер и положение автоматически изменяются при присоединении начала и конца соединителя к другим фигурам в коллекции. Таким образом, если вы планируете присоединить соединитель к другим фигурам, указанные начальные размеры и положение не имеют значения.

Аналогичным образом вы указываете, к каким сайтам подключения на фигуре следует присоединять соединитель при подключении соединителя, но при использовании метода RerouteConnections после подключения соединителя может измениться, к каким сайтам подключения подключается соединитель, что делает ваш первоначальный выбор сайтов подключения нецелесообразным.

Пример

Чтобы выяснить, какое число соответствует сайту соединения в сложной фигуре, можно поэкспериментировать с фигурой во время включения средства записи макросов, а затем изучить записанный код. Или можно создать фигуру, выбрать ее, а затем выполнить следующий пример. Этот код будет нумеровать каждый сайт подключения и подключить к нему соединитель.

Set mainshape = ActiveWindow.Selection.ShapeRange(1) 
With mainshape 
 bx = .Left + .Width + 50 
 by = .Top + .Height + 50 
End With 
With ActiveSheet 
 For j = 1 To mainshape.ConnectionSiteCount 
 With .Shapes.AddConnector(msoConnectorStraight, _ 
 bx, by, bx + 50, by + 50) 
 .ConnectorFormat.EndConnect mainshape, j 
 .ConnectorFormat.Type = msoConnectorElbow 
 .Line.ForeColor.RGB = RGB(255, 0, 0) 
 l = .Left 
 t = .Top 
 End With 
 With .Shapes.AddTextbox(msoTextOrientationHorizontal, _ 
 l, t, 36, 14) 
 .Fill.Visible = False 
 .Line.Visible = False 
 .TextFrame.Characters.Text = j 
 End With 
 Next j 
End With

В следующем примере два прямоугольника добавляются в 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) 
Set c = s.AddConnector(msoConnectorCurve, 0, 0, 0, 0) 
With c.ConnectorFormat 
 .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1 
 c.RerouteConnections 
End With

Методы

Свойства

См. также

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

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

  • Last updated on