API Documentation > CorelDRAW > 2025-v26 > ShapeRange > IVGShapeRange
ShapeRange.AddToSelection method
Adds a shaperange to a Selection
Syntax:
Sub AddToSelection()
Remarks:
The AddToSelection method adds all the shapes in a shape range to the current selection. See also the ShapeRange.CreateSelection and ShapeRange.RemoveFromSelection methods
Examples:
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