Метод Selection.SelectAll (Visio)

Выделение всех возможных фигур в окне или выделении.

Синтаксис

выражение. SelectAll

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

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

Отсутствует

Пример

Этот макрос Microsoft Visual Basic для приложений (VBA) показывает, как выделить все фигуры на странице.

 
Public Sub SelectAll_Example() 
 
 Const MAX_SHAPES = 6 
 Dim vsoShapes(1 To MAX_SHAPES) As Visio.Shape 
 Dim intCounter As Integer 
 
 'Draw six rectangles. 
 For intCounter = 1 To MAX_SHAPES 
 Set vsoShapes(intCounter) = ActivePage.DrawRectangle(intCounter, intCounter + 1, intCounter + 1, intCounter) 
 Next intCounter 
 
 'Deselect all the shapes on the page. 
 ActiveWindow.DeselectAll 
 
 'Select all the shapes on the page. 
 ActiveWindow.SelectAll 
 
End Sub

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

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