この記事では、Excel VBAを用いて画像ファイルの解像度をファイル名に反映する方法を詳しく紹介します。具体的なコードとその解説、さらには応用例を含めて、より実用的な知識の習得を目指します。
Excel VBAの基本
Excel VBA（Visual Basic for Applications）は、Microsoft Excelに組み込まれたプログラミング言語です。これを用いると、単純作業の自動化だけでなく、高度なデータ分析やレポート作成も可能になります。
そもそも、どこにVBAコードを書いて、どう実行すれば良いのか分からない場合は、以下の記事をご参照ください。
基本的な処理: 画像ファイルの解像度をファイル名に反映
Sub RenameImageWithResolution()
Dim filePath As String
Dim img As Picture
Dim newFileName As String
Dim resolution As String
filePath = "C:\path_to_image.jpg" '画像ファイルのパス
Set img = ThisWorkbook.Pictures.Insert(filePath)
resolution = img.Width & "x" & img.Height
newFileName = Replace(filePath, ".jpg", "_" & resolution & ".jpg")
Name filePath As newFileName
img.Delete
End Sub
コードの詳細解説
このコードは、指定した画像ファイルの解像度を取得して、その情報をファイル名に反映させるVBAのマクロです。
1. **filePath**で画像ファイルのパスを指定します。
2. **img**として、指定した画像をExcelにインポートします。
3. **resolution**で画像の横と縦の解像度を取得し、”x”で結合します。
4. **newFileName**で、元のファイル名から拡張子を除去し、解像度を追加して新しいファイル名を作成します。
5. 最後に、**Name**関数でファイル名を変更し、Excel上の画像を削除します。
応用例
応用例1: フォルダ内の全ての画像をリネーム
Sub RenameAllImagesInFolder()
Dim folderPath As String
Dim fileName As String
Dim img As Picture
Dim newFileName As String
Dim resolution As String
folderPath = "C:\path_to_folder\" '画像が保存されているフォルダのパス
fileName = Dir(folderPath & "*.jpg")
Do While fileName <> ""
Set img = ThisWorkbook.Pictures.Insert(folderPath & fileName)
resolution = img.Width & "x" & img.Height
newFileName = Replace(fileName, ".jpg", "_" & resolution & ".jpg")
Name folderPath & fileName As folderPath & newFileName
img.Delete
fileName = Dir()
Loop
End Sub
応用例2: 他の画像形式にも適用
Sub RenameAllImagesIncludingPNGs()
'...（前述のコードと同様の部分は省略）...
fileName = Dir(folderPath & "*.*") '全てのファイルを対象とする
Do While fileName <> ""
If Right(fileName, 4) = ".jpg" Or Right(fileName, 4) = ".png" Then
'...（前述のコードと同様の処理）...
End If
fileName = Dir()
Loop
End Sub
応用例3: 解像度が一定以上の画像のみリネーム
Sub RenameHighResolutionImagesOnly()
'...（前述のコードと同様の部分は省略）...
Do While fileName <> ""
Set img = ThisWorkbook.Pictures.Insert(folderPath & fileName)
If img.Width > 1920 And img.Height > 1080 Then '1920x1080以上の画像のみ対象とする
'...（前述のコードと同様の処理）...
End If
img.Delete
fileName = Dir()
Loop
End Sub
まとめ
Excel VBAを使用して、画像ファイルの解像度をファイル名に反映させる方法を学びました。基本的な手法から、フォルダ内の複数の画像を一括で処理する方法、特定の解像度以上の画像だけを対象とする方法など、応用的な手法までを網羅しました。これらの知識を活用し、日常業務や自動化タスクの中で最大限に活用してください。
VBAも良いけどパワークエリも良い
VBAの解説をしてきましたが、VBAは正直煩雑でメンテナンス性が悪いです。最近はモダンExcelと呼ばれるパワークエリやパワーピボットへのシフトが進んできています。本サイトでもパワークエリの特集をしており、サンプルデータを含む全11回の学習コンテンツでパワークエリを習得することができます。
クリックするとパワークエリの全11講座が表示されます。
-
【初心者向け】パワークエリ入門：ETLツールを使ってエクセルデータを簡単に整形・統合しよう！(1/11)
-
【実践ガイド】パワークエリでデータ収集：Excel、CSV、PDF、Webデータを簡単に取り込む方法をマスターしよう！(2/11)
-
【総力特集】パワークエリで列操作をマスター：選択、変更、移動、削除、結合、分割の詳細解説＆実践テクニック！(3/11)
-
【徹底解説】パワークエリで行操作をマスター！フィルター・保持・削除テクニックと練習用エクセルで実践学習(4/11)
-
パワークエリでデータクレンジング: 文字列結合、0埋め、テキスト関数をマスター(5/11)
-
パワークエリで四捨五入、切り捨て、切り上げをマスターする方法（6/11）
-
パワークエリで効率的なデータグループ化を実現する方法(7/11)
-
パワークエリで時間と日付の計算をマスター！便利な関数を使って効率アップ(8/11)
-
パワークエリで条件別集計をマスターする方法(9/11)
-
Excelパワークエリでクロス集計表とデータベース形式を瞬時に変換する方法(10/11)
-
Excelパワークエリ入門: 効率的なデータ整理をマスターしよう！(11/11)
パワーピボットの記事はありません。興味がある場合は、書籍で学んでみてください
コメント