VBA Generic code

画像に連番の名前を設定する

シートに挿入した画像を管理する場合、連番になっていると扱いやすいです。シート上の画像に「名前+連番」を設定するコードです。アクティブシート上の画像が対象です。
コードの貼り付け場所

サンプルコード

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

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

ページトップへ戻る
Copyright(C) 2009- 坂江 保 All Rights Reserved.