Shape.Selected

Property Selected As Boolean

Member of Shape

The Selected property returns or sets whether a shape is selected.

Changing the value of this property adds or removes the shape to or from the current selection. See also the Shape.CreateSelection, Document.ClearSelection, ShapeRange.AddToSelection, and ShapeRange.RemoveFromSelection methods.

The following code example removes any rectangles from the current selection:

Sub Test() 
 Dim s As Shape 
 For Each s In ActiveSelection.Shapes 
  If s.Type = cdrRectangleShape Then s.Selected = False 
 Next s 
End Sub