Свойство Connects.ToSheet (Visio)

Статья
04/07/2023

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

Синтаксис

expression. ToSheet

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

Возвращаемое значение

Shape

Примечания

Свойство ToSheet для объекта Connect всегда возвращает фигуру, с которой выполняется соединение.

Коллекция Connects представляет несколько подключений. Если каждое соединение, представленное коллекцией, выполняется с одной и той же фигурой, свойство ToSheet возвращает ее. В противном случае он возвращает значение Nothing и не создает исключение.

Пример

В этом макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать свойство ToSheet для поиска фигуры, из которой создается объект Connect в документе Microsoft Visio. В примере отображаются сведения о подключении в окне Интерпретация.

В этом примере предполагается, что существует активный документ, содержащий по крайней мере две соединенные фигуры. Для достижения наилучших результатов соедините две фигуры из набора элементов фигур организационной диаграммы .

 
Public Sub ToSheet_Example() 
 
 Dim vsoShapes As Visio.Shapes 
 Dim vsoShape As Visio.Shape 
 Dim vsoConnectTo As Visio.Shape 
 Dim vsoConnects As Visio.Connects 
 Dim vsoConnect As Visio.Connect 
 Dim intCurrentShapeIndex As Integer 
 Dim intCounter As Integer 
 Set vsoShapes = ActivePage.Shapes 
 
 'For each shape on the page, get its connections. 
 For intCurrentShapeIndex = 1 To vsoShapes.Count 
 
 Set vsoShape = vsoShapes(intCurrentShapeIndex) 
 Set vsoConnects = vsoShape.Connects 
 
 'For each connection, get the shape it connects to. 
 For intCounter = 1 To vsoConnects.Count 
 
 Set vsoConnect = vsoConnects(intCounter) 
 Set vsoConnectTo = vsoConnect.ToSheet 
 
 'Print the name of the shape the 
 'Connect object connects to. 
 Debug.Print vsoConnectTo.Name 
 
 Next intCounter 
 
 Next intCurrentShapeIndex 
 
End Sub

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

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

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