GefObject.Ungroup (method)

Ungroups a group object.
Syntax: Set GefRange = object.Ungroup ( )
Description: Because a group of objects is treated as a single object, ungrouping an object changes the number of items in the container's Objects collection and changes the index numbers of items that come after the affected items in the collection.

Any attributes (for example, animation) associated with the GefObject representing the group will be lost. A subsequent call to the Group method will not restore them.

Example:

Sub GefObject_UnGroup()
    
    Dim oCimObj As GefObject
    Dim oCimRng As GefRange
    
    Set oCimObj = CimGetObject
    
    Set oCimRng = oCimObj.Ungroup
    
End Sub