Shape.Name

画像に連番の名前を付ける

 画像名を「名前+連番」にする場合に使用するコードです。アクティブシート上の画像が対象です。

サンプルコード

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

 「画像の名前」・・・画像の名前です。この名前の後に連番が振られます。
 オートシェイプに連番を振りたい場合は、msoPicture を msoAutoShape に変更します。

Excel Tips for Teachers

Copyright (C) 2009- 坂江 保 All Rights Reserved.