トップ　>　汎用コード　>　画像に連番の名前を設定する

Sub Add_Image_Name() 'アクティブシート上にある全ての画像に連番を振る
    Const conName As String = "Image_" '画像のベース名
    Dim c         As Long
    Dim objShape  As Object
    For Each objShape In ActiveSheet.Shapes
        If objShape.Type = msoPicture Then
            c = c + 1
            objShape.Name = conName & c
        End If
    Next
End Sub