ShapeRange.AddToSelection

Sub AddToSelection()

Member of ShapeRange

The AddToSelection method adds all of the shapes from the range to the current selection.

See also the CreateSelection and RemoveFromSelection methods

The following code example selects all ellipses and rectangles on the current page:

Sub Test() 
 ActivePage.FindShapes(Type:=cdrEllipseShape).CreateSelection 
 ActivePage.FindShapes(Type:=cdrRectangleShape).AddToSelection 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.