'OutSeetNoシート内の全てのオブジェクトを削除する
Sub DeleteAllPictures()

    Dim OutSeetNo As Integer
    Dim pic As Shape
    
    '変数データ取り込み
    With ThisWorkbook.Sheets(1)
        OutSeetNo = .Range("G4") '出力シートNo
    End With
            
    '各Shapesを削除
    For Each pic In ThisWorkbook.Sheets(OutSeetNo).Shapes
    pic.Delete
        
    Next pic
    
End Sub