Share via


Window.SelectAll Method

Visio Automation Reference

Selects all possible shapes in a window or selection.

Version Information
 Version Added:  Visio 2.0

Syntax

expression.SelectAll

expression   A variable that represents a Window object.

Return Value
Nothing

Example

This Microsoft Visual Basic for Applications (VBA) macro shows how to select all the shapes on the page.

Visual Basic for Applications
  
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

See Also