This might give you a start. Might not be the most code  efficient but works You
probably need to call this from a Auto_Open event in the ThisWorkbook module.
"Sheet2 & Picture X" must be modified if necessary to match the name of each
sheet or picture.

Sub ReplacePics()

Application.ScreenUpdating = False

Dim iSheetCount As Integer
Dim iSheet As Integer

iSheetCount = ActiveWorkbook.Worksheets.Count
For iSheet = 1 To iSheetCount
Worksheets(iSheet).Activate
If ActiveSheet.Name <> "Sheet2" Then
Application.DisplayAlerts = False
ActiveSheet.Shapes.SelectAll
Selection.Delete
Application.DisplayAlerts = True
Sheets("Sheet2").Shapes("Picture 1").Copy
ActiveSheet.Range("C2").PasteSpecial
Application.CutCopyMode = False
Sheets("Sheet2").Shapes("Picture 2").Copy
ActiveSheet.Range("D2").PasteSpecial
Application.CutCopyMode = False
Sheets("Sheet2").Shapes("Picture 3").Copy
ActiveSheet.Range("E2").PasteSpecial
Application.CutCopyMode = False
Sheets("Sheet2").Shapes("Picture 4").Copy
ActiveSheet.Range("F2").PasteSpecial
Application.CutCopyMode = False
End If
Next iSheet
Application.ScreenUpdating = True
End Sub