Shape.CreateSelection

Sub CreateSelection()

Member of Shape

The CreateSelection method selects a shape. All other shapes on the page are deselected automatically.

See also the Selected property.

The following code example selects a shape with the name MyRectangle:

Sub Test() 
 Dim s As Shape 
 Set s = ActivePage.FindShape("MyRectangle") 
 If Not s Is Nothing Then 
  s.CreateSelection 
 Else 
  ActiveDocument.ClearSelection 
 End If 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.