Sub to insert images from folder n create text captions

[Max]

PPT 2003. Seeking help to automate this manual process.

I'm in a ppt with just one title slide. What I want to do is
insert as many blank slides as required,
then for each blank slide:

Go to a folder*, eg: D:\D drive\Maxh\
insert the 1st image
resize the image to a fixed size, eg:
.Height = 350
.Width = 650
position it centrally
add a textbox caption just below the image left-aligned,
bearing the name of the image inserted, eg: image1.gif
(textbox preferably to be filled black/white font, size 8 times new roman)
*folder will contain only image files

... then proceed to the next blank slide, repeat the above for the 2nd image,
and continue repeating the process until all images in that folder are
inserted.
Appreciate any insights. Thanks.

 

[Steve Rindsberg]

If you already have a little VB/VBA experience, this should get you most of the
way there:

Batch Insert a folder full of pictures, one per slide
http://www.pptfaq.com/FAQ00352.htm

 

[Max]

Fantastic, Steve! Thanks. Works great.

If you could, how does one incorporate into your Sub ImportABunch()
the functionality to add the textbox captions for each image, re:
Perhaps some sample code for me to tinker with? Thanks

 

[John Wilson]

Try adding this AFTER you set the pic to real size (after the End With)

Set otxt = oSld.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, _
oPic.Top + oPic.Height + 10, 200, 20)
With otxt.TextFrame.TextRange
'Strip of last 4 characters (.jpg)
..Text = Left$(strTemp, Len(strTemp) - 4)
..Font.Name = "Arial"
..Font.Size = 8
..ParagraphFormat.Alignment = ppAlignLeft
End With

You should also Dim otxt As Shape

 

[Max]

Superb, John!
Complements Steve's sub very well.
Many thanks for sharing the code.

 

[Steve Rindsberg]

Fantastic, Steve! Thanks. Works great.

If you could, how does one incorporate into your Sub ImportABunch()
the functionality to add the textbox captions for each image, re:

Perhaps some sample code for me to tinker with? Thanks

I see the transatlantic elves have been on the case.

 

[John Wilson]

The code elves were busy. And watch out because they've been whispering to
their colleagues the birthday elves!

;-) John

 

[Steve Rindsberg]

The code elves were busy. And watch out because they've been whispering to
their colleagues the birthday elves!

Uh. Oh.