|   |   | Object Model Reference : Classes : S : ShapeRange : Methods : ShapeRange.AddToSelection | 
Sub AddToSelection()
Member of ShapeRange
The AddToSelection method adds all the shapes in a shape range to the current selection.
 
| • | See also the ShapeRange.CreateSelection and 
ShapeRange.RemoveFromSelection methods
 | 
The following VBA example selects all the ellipses and rectangles on the current page.
| Sub Test() | 
|  ActivePage.FindShapes(Type:=cdrEllipseShape).CreateSelection | 
|  ActivePage.FindShapes(Type:=cdrRectangleShape).AddToSelection | 
| End Sub | 
|   |   |   | 
Copyright 2013 Corel Corporation. All rights reserved.