GefRange.Count (read-only property)

Gets the number of objects in the collection.

Syntax:

long = object.Count

Description:

The Count property gets the number of objects in the collection

Example:

Sub Range_Count()

Dim oCimScr As GefScreen

    Dim oCimObjGrp As
GefObject

    Dim oCimRnge As GefRange

    Set oCimScr = CimGetScreen

    Set oCimObjGrp =
oCimScr.object.Objects.Item("Group1")

    Set oCimRnge =
oCimObjGrp.Ungroup

    MsgBox "The number of objects in the
" & _

"range is " & oCimRnge.Count

End Sub