Ungroup and ReGroup all pictures and OLE objects

Problem

When moving back and forth between PC and Mac, it's a good idea to convert your graphics into native PowerPoint/Office drawing shapes rather than operating system-specific formats like WMF, PICT, etc.

This macro will ungroup and regroup each such shape in your presentation, which converts the elements to native PPT drawing shapes.

Suggestion: run this only on a COPY of your original presentation.

Solution

Sub UngroupRegroup()
' Ungroups/Groups OLE objects, pictures and groups

    Dim oSh As Shape
    Dim oSl As Slide

    For Each oSl In ActivePresentation.Slides
        For Each oSh In oSl.Shapes
            Debug.Print oSh.Name
            Select Case oSh.Type
                ' add other types as needed
                Case Is = msoEmbeddedOLEObject, msoPicture, msoGroup
                    With oSh.Ungroup
                        .Group
                    End With
                Case Else
                    ' do nothing
            End Select
        Next    ' shape
    Next    ' Slide
End Sub

Search terms:

---