The CreateSelection method creates a selection from the shapes in a shape range. Unlike the AddToSelection method, the CreateSelection method destroys any previous selection.
Examples:
The following VBA example selects all the ellipses on the current page.
Sub Test()
ActivePage.FindShapes(Type:=cdrEllipseShape).CreateSelection
End Sub