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

hs1972 · #1 04-25-2018, 04:31 AM

I have a powerpoint file where I want to save each of the individual slides as jpgs. That bit is fine. The issue is I want the file names to be the text on the individual slide. So if a slide has the text 'Hello There' I want the slide to save as hello-there.jpg (all in lower case, up to 25 characters). Is there any way to do this? Is there any sample VBA script that anyone is aware of that does something similar so I'm not starting from scratch. I'm pretty new to this but willing to give it a go. Know a little VBA. Thanks in advance.

JohnWilson · #2 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 · #3 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.

JohnWilson · #4 04-25-2018, 06:21 AM

Can you go back to your cross post and note that you have a solution elsewhere. Otherwise someone may be wasting time on it right now.

http://www.vbaexpress.com/forum/show...e-as-file-name

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

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