ExcelVBA シートに画像を手動貼り付けから自動化で作業効率化を図る方法

2025年2月20日 2025年2月20日

ExcelVBA シートに画像を自動的に貼り付けることで、作業の効率化を図る。手動で画像を挿入する手間を省き、データと連携したレポート作成などに活用できる。使い方や注意点など、サンプルコードをもとに具体的に解説します。

2025年の目標は繰り返し作業に悩まされない年にしませんか？ Excel VBAを活用した効率化がその第一歩
本サイト参考：Excel VBAで自動化するコードのベースを習得したい方におすすめの記事

1 Excel VBA シートに画像を自動的に貼り付ける｜シーン
2 Excel VBA シートに画像を自動的に貼り付ける｜サンプルコード
3 Excel VBA シートに画像を自動的に貼り付ける｜注意点
4 Excel VBA シートに画像を自動的に貼り付ける｜まとめ

Excel VBA シートに画像を自動的に貼り付ける｜シーン

以下のシーンで利用します。

1.レポートや資料に自動でロゴや図を挿入

2.商品リストやカタログに画像を一括で追加

3.条件に応じた画像を動的に変更する

Excel VBA シートに画像を自動的に貼り付ける｜サンプルコード

Excel VBAで効率化の準備をしてみませんか？2025年をよりスムーズに過ごすための資格
基本的な文法やVBAの実践的な応用までを網羅的に学習できる方法は、ExcelVBAエキスパート資格の取得を目指すこと。学習を通して、より効率的に、着実に基礎を身につけることが可能です。資格取得すれば、スキルの証明にもなり、職場での評価アップにも繋がるため、勉強を進めるモチベーションにもなります。
本サイト参考：マクロ知識がないから「何から学べば良いのかわからない」という人におすすめの記事

指定したセルの位置に画像を貼り付ける

標準モジュール

Option Explicit

Sub InsertImage()
    Dim ws As Worksheet
    Dim imgPath As String
    Dim img As Shape
    Dim targetCell As Range
    
    ' 画像を挿入するシートとセルを指定
    Set ws = ThisWorkbook.Sheets("Sheet1")  ' シート名を変更可
    Set targetCell = ws.Range("B2")         ' 貼り付けるセル

    ' 画像のフルパスを指定（適宜変更）
    imgPath = "C:\Users\User\Pictures\スタンダード.png"

    ' 画像を貼り付け
    Set img = ws.Shapes.AddPicture(imgPath, msoFalse, msoCTrue, _
                                   targetCell.Left, targetCell.Top, -1, -1)
End Sub

ポイント

・imgPath に貼り付ける画像のフルパスを指定

・targetCell.Left、targetCell.Top でセルの位置に配置

・-1, -1 を指定すると画像サイズは元のサイズのまま

画像のサイズを指定して貼り付ける

標準モジュール

Option Explicit

Sub InsertImageWithSize()
    Dim ws As Worksheet
    Dim imgPath As String
    Dim img As Shape
    Dim targetCell As Range
    
    ' 画像を挿入するシートとセルを指定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set targetCell = ws.Range("B2")

    ' 画像のフルパス
    imgPath = "C:\Users\User\Pictures\スタンダード.png"

    ' 画像を貼り付け（サイズ指定）
    Set img = ws.Shapes.AddPicture(imgPath, msoFalse, msoCTrue, _
                                   targetCell.Left, targetCell.Top, 100, 100)
End Sub

ポイント

・100, 100 を指定すると幅100px・高さ100px で画像を挿入

・サイズを固定したい場合に使用

画像を削除して新しい画像を貼り付ける（上書き）

標準モジュール

Option Explicit

Sub ReplaceImage()
    Dim ws As Worksheet
    Dim imgPath As String
    Dim img As Shape
    Dim shp As Shape

    ' シートを指定
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 既存の画像を削除
    For Each shp In ws.Shapes
        If shp.Type = msoPicture Then shp.Delete
    Next shp

    ' 画像のフルパス
    imgPath = "C:\Users\User\Pictures\スタンダード.png"

    ' 画像を貼り付け
    Set img = ws.Shapes.AddPicture(imgPath, msoFalse, msoCTrue, 50, 50, -1, -1)
End Sub

ポイント

・For Each shp In ws.Shapes で既存の画像を削除

・新しい画像を重複なく貼り付けることが可能