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

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

Синтаксис

выражение. ToSheet

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

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

Shape

Примечания

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

Коллекция "Подключения" представляет несколько соединений. Если все соединения, представленные коллекцией, имеют одну и ту же фигуру, свойство 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 и обратная связь.