Regroup Method Example
This example regroups the shapes in the selection in the active window. If the shapes haven't been previously grouped and ungrouped, this example will fail.
ActiveDocument.ActiveWindow.Selection.ShapeRange.Regroup