GefScreen.Selection (read-only property)

Gets the collection of objects that are currently selected.
Syntax: Set GefRange = object.Selection
Description: You can modify the selection using GefScreen.Select or GefObject.Select. For best results use in CimEdit.

CimEdit: This represents the selected objects.

CimView: This represents the action object that is highlighted. When you modify the selection, if there are multiple action objects in the collection you are selecting, only one of them will be used as the selection. If there are no action objects, the selection is cleared.


Sub OnSmartObject()
    Dim oCimScr As GefScreen
    Dim oCimRng As GefRange
    Set oCimScr = CimGetScreen
    oCimScr.Select gefSelectAll
    Set oCimRng = oCimScr.Selection
    MsgBox "There are " & oCimRng.Count & " item(s) selected"
End Sub