Shape.AddToSelection

Sub AddToSelection()

Member of Shape

The AddToSelection method adds a shape to a selection. This method does not work if the shape is a selection shape.

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

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

Copyright 2007 Corel Corporation. All rights reserved.