If you have two folder. One for the main Pic and a second for the small images with matching names. Something based on this might work.
NOTE I changed the path to the folders to work on my laptop and the positions of the small image will need adjusting.
Sub main()
Dim i As Integer
Dim arrFilesInFolder As Variant
arrFilesInFolder = GetAllFilesInDirectory("C:\Users\info\Desktop\test")
For i = LBound(arrFilesInFolder) To UBound(arrFilesInFolder)
Call AddSlideAndImage(arrFilesInFolder(i))
Next
End Sub
Private Function GetAllFilesInDirectory(ByVal strDirectory As String) As Variant
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim arrOutput() As Variant
Dim i As Integer
'Create an instance of the FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object
Set objFolder = objFSO.GetFolder(strDirectory)
ReDim arrOutput(0)
i = 1
'loops through each file in the directory and prints their names and path
For Each objFile In objFolder.Files
Debug.Print objFile.Name
arrOutput(i - 1) = objFile.Name
ReDim Preserve arrOutput(UBound(arrOutput) + 1)
i = i + 1
Next objFile
ReDim Preserve arrOutput(UBound(arrOutput) - 1)
GetAllFilesInDirectory = arrOutput
End Function
Private Function AddSlideAndImage(ByVal strFile As String)
Dim objPresentation As Presentation
Dim objSlide As Slide
Const folderpath As String = "C:\Users\info\Desktop\test\"
Const folderpath2 As String = "C:\Users\info\Desktop\test2\"
Set objPresentation = ActivePresentation
Set objSlide = objPresentation.Slides.Add(1, PpSlideLayout.ppLayoutChart)
Call objSlide.Shapes.AddPicture(folderpath & strFile, msoCTrue, msoCTrue, 20, 50)
Call objSlide.Shapes.AddPicture(folderpath2 & strFile, msoCTrue, msoCTrue, 600, 10, 60, 40)
End Function