If you used Photo Album EDIT Just read your other post - If there is OTHER content this will not work!

Just go back to INSERT Photo Album. Choose EDIT and seelct the first and shift select the last image > DELETE. Then add the new images. Should take less than a minute.

Difficult to write a macro without seeing the files.

If the two presentations have the same number of slides and images this MIGHT work. Use a copy in case it gores wrong and change the names of the files in the code to match the names you have.

Sub switchPic()
Dim oTarget As Presentation
Dim oSource As Presentation
Dim i As Integer
Dim oshp As Shape
'NOTE use the names of your own presentations
Set oTarget = Presentations("Image1.pptx")
Set oSource = Presentations("Image2.pptx")
For i = 1 To oSource.Slides.Count
If oSource.Slides(i).Shapes(1).Type = msoPicture Then
oSource.Slides(i).Shapes(1).Copy
End If
If oTarget.Slides(i).Shapes(1).Type = msoPicture Then
oTarget.Slides(i).Shapes(1).Delete
oTarget.Windows(1).Activate
ActiveWindow.View.GotoSlide i
oTarget.Slides(i).Shapes.Paste
End If
Next i
End Sub

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials