Hi John
Actually just found an answer . . but thanks for your help. The reason for deletion is just so that I can insert a new picture there. Cheers.
Sub DeleteAllPictures()

Dim sldTemp As Slide
Dim lngTemp As Long
Dim lngCount As Long

Dim SlideList() As Variant
Dim Slide As Variant
SlideList = Array(3, 4, 8, 9, 10, 11, 12)

For Each Slide In SlideList

Set sldTemp = ActivePresentation.Slides(Slide)
For lngCount = sldTemp.Shapes.Count To 1 Step -1
With sldTemp.Shapes(lngCount)
If .Type = msoPicture Then
.Delete
End If
End With
Next
Next

End Sub