Header
PowerPoint tips, hints and tutorials that will change your presentations for ever!

INDEX

 

Jigsaws
Sounds
Video
Custom Shows
vba code
NaviSlides
Games for teachers
Bullets
Triggers
Security
Flash Cards
Multiple Instances
PowerPoint 2007
Mail Merge
Random events
Animation
Hyperlinks
Set spellcheck language


Home buttonTutorial buttonContact buttonProducts button



Slide Thumbnails vba

If you need slide images to paste into a document you can use the Save as jpg command.

This code though will give you much smaller thumb images!

Don't know what to do with the code see here for tutorial


The code

Sub thumbs()
Dim SW As Long
Dim SH As Long
Dim i As Integer
Dim strpath As String
On Error Resume Next
strpath = Environ("USERPROFILE") & "\Desktop\Slide_Pics\"
MkDir strpath
SW = ActivePresentation.PageSetup.SlideWidth
SH = ActivePresentation.PageSetup.SlideHeight
For i = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(i).Export _
strpath & "\MySlide" & CStr(i) & ".jpg", "JPG", SW / 2, SH / 2
Next i
End Sub

You will find the thumbnails in a folder (Slide_Pics) on the desktop.
 

 

Back to the Index Page

POWERPOINT BLOG

Articles on your favourite sport

Free Microsoft PowerPoint Advice, help and tutorials, Template Links
This website is sponsored by Technology Trish Ltd
© Technology Trish 2007
Registered in England and Wales No.5780175
PowerPoint® is a registered trademark of the Microsoft Corporation