Macro to ungroup all EMF images in a presentation ?

[somedude]

Hi,

I'm using icons that I exported from Illustrator to .emf

Is there a way to ungroup all such icons in a given presentation, instead of doing it manually ?

Thanks in advance.

[Paul_Hossler]

post a small sample presentation with some in for testing

[somedude]

Here you go 17396

[Paul_Hossler]

Very similar to the other Slides / Shape loop macro

1. Since we're adding additional Shapes to the Shapes collection by .Ungroup, I needed to remember the original msoPicture shapes

2. Since not all msoPicture shapes seem to be .Ungroup-able, I added On Error Resume Next

3. There might be a more cleverer way, but I'm not very good with the PP object model


17401





Option Explicit

Sub UnGroupEMF()
Dim oPres As Presentation
Dim oSlide As Slide
Dim oShape As Shape
Dim aShapes(1 To 100) As Shape
Dim iShapes As Long, i As Long
Set oPres = ActivePresentation
For Each oSlide In oPres.Slides
' need to remember the original images since we will be 'adding' more shapes
iShapes = 0
For Each oShape In oSlide.Shapes
If oShape.Type = msoPicture Then
iShapes = iShapes + 1
Set aShapes(iShapes) = oShape
End If
Next
For i = 1 To iShapes
'not all msoPicture can be Ungroup-ed
On Error Resume Next
aShapes(i).Ungroup
On Error GoTo 0
Next
Next
End Sub