Export every shape / image on a slide as Vector file (EMF)

[ralfrolf]

Hello,

I have the following situation:

I need to export all shapes as a vector file.
So what I have tried is to select each shape after each other and export this selected shape as .emf. Unfortunately it didn't work out.

Do you have any idea how I can solve the problem?

Would be really good since I have about 280 objects that needs to be saved :yes

Thanks and best,
Ralf

[John Wilson]

Something like this maybe:


Sub exporter()Dim folderPath As String
Dim osld As Slide
Dim oshp As Shape
Dim x As Integer
folderPath = Environ("USERPROFILE") & "\Desktop\myEMFs\"
On Error Resume Next
MkDir folderPath
Set osld = ActiveWindow.View.Slide
For Each oshp In osld.Shapes
x = x + 1
Call oshp.Export(folderPath & "Shape" & CStr(x) & ".emf", ppShapeFormatEMF)
Next oshp
End Sub

[ralfrolf]

Works perfect. Thanks so much for the super fast reply!!