The ActiveShape property returns the first selected shape in the document. Unlike the Document.Selection method, ActiveShape returns the actual shape selected, not the selection object.
Examples:
The following VBA example applies the Brighten lens to the currently selected shape in the second open document.
Sub Test()
Documents(2).ActiveShape.CreateLens cdrLensBrighten, 50
End Sub