How can you insert multiple jpeg files into Powerpoint

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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?
 
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
--
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
 
Back
Top