GefRange.Remove (method)

Removes the specified item from the collection.
Syntax: object.Remove IndexOrName
Optional IndexOrName As VARIANT -
Description: The intIndex argument can range from 0 to Count-1.

The GefRange collection support access by index number or name. For the GefRange collection, the object is simply removed from the collection but it continues to exist in the screen (in a GefObjects collection).


Sub Range_Remove()
    Dim oCimScr As GefScreen
    Dim oCimObjGrp As GefObject
    Dim oCimRnge As GefRange
    Dim i As Integer
    Set oCimScr = CimGetScreen
    Set oCimObjGrp = oCimScr.Object.Objects.Item("Group1")
    Set oCimRnge = oCimObjGrp.Ungroup
    For i = 0 To oCimRnge.Count - 1
        oCimRnge.Remove i
        MsgBox oCimRnge.Item(i).Name & _
            " was removed from the selection"
    Next i
End Sub