Saving each slide as jpg with the text in the slide as file name

JohnWilson · #1 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

hs1972 · #2 04-25-2018, 04:52 AM

Thank you very much for such a prompt response. This is brilliant; gives me a really good starting point. Thanks again.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Editable text box in master slide not appearing once closing master slide mode	tparnicott	PowerPoint	1	06-17-2016 04:13 AM
Lyric slide show - using a variable to pull text from next slide	elfman12	PowerPoint	3	03-08-2013 12:27 AM
Text typed on slide x ports to slide y automatically?	Thinker	PowerPoint	5	07-26-2012 11:59 PM
slide image wont copy with text to new slide	lewis.mulhollen	PowerPoint	1	12-17-2011 03:17 AM
PP 2010 .avi file plays during slide show, but causes the slide show to loop to begin	VictorS	PowerPoint	0	10-16-2010 10:23 AM