Skip to content

Instantly share code, notes, and snippets.

@DataSolveProblems
Created April 5, 2019 10:11
Show Gist options
  • Save DataSolveProblems/c13e56200163d96e4ed1ebfe09247905 to your computer and use it in GitHub Desktop.
Save DataSolveProblems/c13e56200163d96e4ed1ebfe09247905 to your computer and use it in GitHub Desktop.
Sub Export_Images()
Dim Destination_Folder As String
Dim sld As Slide
Dim shp As Shape
Destination_Folder = "<Folder Path>"
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.Type = msoPicture Then
shp.Export Destination_Folder & shp.Name & ".jpg", ppShapeFormatJPG
End If
Next shp
Next sld
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment