Supercharge your PowerPoint productivity with
Supercharge your PPT Productivity with PPTools - Click here to learn more.

Proud member of

PPTools

Image Export converts PowerPoint slides to high-quality images.

PPT2HTML exports HTML even from PowerPoint 2010 and 2013, gives you full control of PowerPoint HTML output, helps meet Section 508 accessibility requirements

Merge Excel data into PowerPoint presentations to create certificates, awards presentations, personalized presentations and more

Resize your presentations quickly and without distortion

Language Selector switches the text in your presentation from one language to another

FixLinks prevents broken links when you distribute PowerPoint presentations

Shape Styles brings styles to PowerPoint. Apply complex formatting with a single click.

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:


Did this solve your problem? If so, please consider supporting the PPT FAQ with a small PayPal donation.
Page copy protected against web site content infringement by Copyscape Contents © 1995 - 2022 Stephen Rindsberg, Rindsberg Photography, Inc. and members of the MS PowerPoint MVP team. You may link to this page but any form of unauthorized reproduction of this page's contents is expressly forbidden.

Supercharge your PPT Productivity with PPTools

content authoring & site maintenance by
Friday, the automatic faq maker (logo)
Friday - The Automatic FAQ Maker

Ungroup and ReGroup all pictures and OLE objects
http://www.pptfaq.com/FAQ00686_Ungroup_and_ReGroup_all_pictures_and_OLE_objects.htm
Last update 07 June, 2011
Created: