PowerPoint VBA insert Slide and insert Picture

[bobaol]

I would like to use VBA to insert a new slide, then insert an image to the slide. I have 14 jpg images. here is an example of the name for three images: c:\temp2\jkflaj1.jpg c:\temp2\98u98s2.jpg c:\temp2\hga3.jpg I want to explicitly define my image and location. so, the code would need to go like this:

1. insert slide (slide2), insert image c:\temp2\jkflaj1.jpg. this image would remain on slide 2, not move to another slide
2. insert another slide (slide3), insert image c:\temp2\98u98s2.jpg this image would remain on slide 3, not move to another slide
3. insert another slide (slide4), insert image c:\temp2\hga3.jpg this image would remain on slide 4, not move to another slide

I want to use a hard-path and a hard file-name. i know i will need to do this 14 times, but i am okay with it. any help is appreciated. thank you in advance.

 

[skillilea]

Something like this.

I used png's, change them to jpg's

Sub InsertImages()
    Dim nSlide As slide
    
    Set nSlide = InsertImageOnSlide(2, "c:\temp2\jkflaj1.png")
    Set nSlide = InsertImageOnSlide(3, "c:\temp2\98u98s2.png")
    Set nSlide = InsertImageOnSlide(4, "c:\temp2\hga3.png")
End Sub


Function InsertImageOnSlide(slideIndex As Integer, imagePath As String) As slide
    Dim nSlide As slide
    
    Set nSlide = ActivePresentation.Slides.Add(slideIndex, ppLayoutBlank)
        nSlide.Shapes.AddPicture FileName:=imagePath, LinkToFile:=msoFalse, _
        SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=100, Height:=100
    Set InsertImageOnSlide = nSlide
End Function