Microsoft Office Forums - View Single Post - Saving each slide as jpg with the text in the slide as file name

JohnWilson · 04-25-2018, 04:47 AM

This might give you a start (assumes you are looking at Title text)

Code:

Sub exporter()
Dim osld As Slide
Dim strFolder As String
Dim strName As String
On Error Resume Next
strFolder = Environ("USERPROFILE") & "\Desktop\Slides\"
MkDir strFolder
For Each osld In ActivePresentation.Slides
If osld.Shapes.HasTitle Then
If osld.Shapes.Title.TextFrame2.HasText Then
strName = osld.Shapes.Title.TextFrame2.TextRange
strName = Replace(strName, " ", "-")
Else
strName = "Slide_" & CStr(osld.SlideIndex)
End If
Else
strName = "Slide_" & CStr(osld.SlideIndex)
End If
Call osld.Export(strFolder & strName & ".jpg", "JPG")
Next osld
End Sub