Another one Stumped - Multiple File names displayed in .ppt 2003

  • Thread starter Thread starter Old Bill
  • Start date Start date
O

Old Bill

Help requested.
I have completed a huge slideshow with some 2000 photos & images inserted
and now find it would perform better with the photo titles displayed on
screen. I have tried the photo album route with limited success but really
want the full screen image display with the file name embedded. I have tried
headers & footers on the Master but also no success. Manual solution is to
add these by text boxes however with 2000 of the creatures this would take
forever. I have all of the files named as "descriptive title.jpg" when
inserted which took days of grind. Any assistance how to overcome this would
be appreciated. I did find a section on MS PPT site that said this function
is not possible but if any one can help out there.......

Thanks in advance
 
IIW is great but if you want to DIY- the code here's a pretty good start
(adapted from code on Steve Rindsberg's PPTFAQ pages)

Sub ImportABunch()

Dim strTemp As String
Dim strPath As String
Dim strFileSpec As String
Dim oSld As Slide
Dim oPic As Shape
Dim otext As Shape
Dim strname() As String


' Edit these to suit:
strPath = "C:\Documents and Settings\John\Desktop\Pics\"
strFileSpec = "*.jpg"

strTemp = Dir(strPath & strFileSpec)


Do While strTemp <> ""
Set oSld = ActivePresentation.Slides.Add _
(ActivePresentation.Slides.Count + 1, ppLayoutBlank)
Set oPic = oSld.Shapes.AddPicture _
(FileName:=strPath & strTemp, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=0, _
Top:=0, _
Width:=100, _
Height:=100)


With oPic
.LockAspectRatio = msoFalse
.Height = ActivePresentation.PageSetup.SlideHeight
.Width = ActivePresentation.PageSetup.SlideWidth
End With
strname = Split(strTemp, ".")
Set otext = oSld.Shapes.AddTextbox _
(msoTextOrientationHorizontal, 500, 500, 200, 50)
With otext.TextFrame.TextRange
..Text = strname(0)
..ParagraphFormat.Alignment = ppAlignCenter
..Font.Size = 18
End With

strTemp = Dir
Loop

End Sub

You can find instructions for using vba here
http://www.pptfaq.com/FAQ00033.htm

--
Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk
 
Back
Top