Question : Macro (or something else) - Power Point - how to put my images as slides

Hello I have hundreds of images.

I want to create a presentation having as slide, one image.
In this way I can print those images as a ppt slide ... for example 4 slides (images) in one page.

It can be a macro or some automatic way that takes the image and puts it in a slide. The image will be re sized so that it will be as big as a slide.

Please ask me questions if I didn't explain well what I need,
thanks

Answer : Macro (or something else) - Power Point - how to put my images as slides

I am trying the following code, but the macro starts, and finishes immediately (hundreds of pics), but nothing changed in the presentation.

Any idea why it is not working?

I am using this code

                       
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

           
           
             Sub ImportABunch() 
Dim strTemp As String
Dim strPath As String
Dim strFileSpec As String
Dim oSld As Slide
Dim oPic As Shape 
' Edit these to suit:
strPath = "C:\Documents and Settings\me\Desktop\screens\Modul 1"
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) 
    ' Reset it to its "real" size
    With oPic
        .ScaleHeight 1, msoTrue
        .ScaleWidth 1, msoTrue
    End With 

    ' Get the next file that meets the spec and go round again
    strTemp = Dir
Loop 
End Sub

           
         

Open in New Window

Select All