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

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

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


サンプルコード

コードの貼り付け場所

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 に変更します。


書籍紹介本を執筆しました

Excelを学びのツールに
「Excelで画像編集 ~編集機能を使い倒す!!~」(Kindle版)
Excelは表計算アプリケーションですが、画像や図形の優れた編集機能を備えています。
本書では、それらの機能や操作に焦点をあてた解説をし、あわせて編集の具体例とその方法を紹介します!!


ページトップへ戻る

Excel 汎用コード



Word 汎用コード

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