Size & Placement of all 400 photos

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

Guest

I read the answers to Anneli's question - downloaded the PPT tools, still not
exactly what I need. This is what I want: Company logo at top of page (Lot)
# of photo on right hand side (Both this I can do on master view) - I have -
insert photo album - 1 picture with rounded rectangle. But I need ALL
photo's at the bottom left 1/4 of page (or so) - can I do this with ONE (or
so) click of the button... I have THREE of these to do - and not enough hours
(4+) like I've done them in the past. Please help - I have deadlines! Thank
you
 
AuctionGal said:
I read the answers to Anneli's question - downloaded the PPT tools, still not
exactly what I need. This is what I want: Company logo at top of page (Lot)
# of photo on right hand side (Both this I can do on master view) - I have -
insert photo album - 1 picture with rounded rectangle. But I need ALL
photo's at the bottom left 1/4 of page (or so) - can I do this with ONE (or
so) click of the button... I have THREE of these to do - and not enough hours
(4+) like I've done them in the past. Please help - I have deadlines! Thank
you
Click to expand...

One of the addins or other techniques here should help:

BATCH IMPORT images into PowerPoint
http://www.pptfaq.com/FAQ00050.htm
 
Hi this vba will do it I think

Simply resize/ move one picture, note it will only work with a slide show
"picture" (ie a picture filled shape) and select it then run the code. All
the other slide show items should follow the size and position

'***************
Dim oShp As Shape
On Error GoTo errhandler
If ActiveWindow.Selection.ShapeRange.Count <> 1 Then
MsgBox ("Select One and one only shape")
Exit Sub
End If

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
Exit Sub
errhandler:
MsgBox ("ERROR - did you select anything?")
End Sub
'********************
--
Dont know how to use vba? See here
http://www.rdpslides.com/pptfaq/FAQ00033.htm

Did that answer the question / help?
_____________________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html
 
Sorry I missed a bit in the cut & paste!

'**********start
Sub picsize()
Dim postop As Integer
Dim posleft As Integer
Dim sizewidth As Integer
Dim sizeheight As Integer
Dim oSld As Slide
Dim oShp As Shape
On Error GoTo errhandler
If ActiveWindow.Selection.ShapeRange.Count <> 1 Then
MsgBox ("Select One and one only shape")
Exit Sub
End If

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
Exit Sub
errhandler:
MsgBox ("ERROR - did you select anything?")
End Sub
'************************end

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