How can you insert multiple jpeg files into Powerpoint

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Hammer - 30 Aug 2006 00:31 GMT

The jpeg pictgures are on my HDD. I know how to insert them 1 by 1. That
takes a lot of time. I want to insert 50 (or so) all at once. Is there a way
to do this?

Signature

abcdefghijklmnop

Reply to this Message

tohlz - 30 Aug 2006 01:40 GMT

Check this out:
"BATCH IMPORT images into PowerPoint"
http://www.rdpslides.com/pptfaq/FAQ00050.htm

Signature

Shawn Toh (tohlz)
Microsoft Most Valuable Professional (MVP PowerPoint)

Site Updated: July 23, 2006
3 New PowerPoint Games
http://pptheaven.mvps.org
PowerPoint Heaven - The Power to Animate

> The jpeg pictgures are on my HDD. I know how to insert them 1 by 1. That
> takes a lot of time. I want to insert 50 (or so) all at once. Is there a way
> to do this?

Reply to this Message

John Wilson - 30 Aug 2006 07:58 GMT

Unless you are linking to files or need to crop then the insert > pictures>
new photo album will probably work fine.

You may also be interested in this vba code which allows you to reposition
/resize one photo album item, select it and reset all others to the same size
/ position

Signature

Sub picsize2()
Dim postop As Integer
Dim posleft As Integer
Dim sizewidth As Integer
Dim sizeheight As Integer
Dim oSld As Slide
Dim oShp As Shape

postop = ActiveWindow.Selection.ShapeRange.Top
posleft = ActiveWindow.Selection.ShapeRange.Left
sizewidth = ActiveWindow.Selection.ShapeRange.Width
sizeheight = ActiveWindow.Selection.ShapeRange.Height

For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
If oShp.Fill.Type = msoFillPicture Then
With oShp
.Width = sizewidth
.Height = sizeheight
.Top = postop
.Left = posleft
End With
End If
Next oShp
Next oSld
End Sub

Did that answer the question / help?
_____________________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html

> The jpeg pictgures are on my HDD. I know how to insert them 1 by 1. That
> takes a lot of time. I want to insert 50 (or so) all at once. Is there a way
> to do this?

Reply to this Message