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

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

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

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

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

標準モジュール

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

標準モジュール

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

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

1. 画像のパスはフルパスで指定する必要がある
相対パスを使用するとエラーが発生するため、フルパスで指定する

2. 画像のサイズは `-1, -1 で元サイズ、指定可能
サイズを変えたい場合は width, height を指定

3. 画像の位置をセルに合わせる場合は Left、Top を使用
セルの中央に配置する場合は targetCell.Left + (targetCell.Width / 2) など工夫が必要

4. 既存の画像を削除する場合は Shapes をループ処理する
画像が複数ある場合、不要な画像を削除するには shp.Delete を活用

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