【Excel VBA】元のデータを自動反映する「リンクされた図」としてセル範囲を貼り付ける方法

2025年8月14日

Excelでダッシュボードやレポートを作成する際、「別シートにある表やグラフを、見栄え良く貼り付けたい。しかも、元のデータが変更されたら、貼り付けた内容も自動で更新されてほしい」という高度なニーズがあります。

これを実現するのが、Excelの強力な機能**「リンクされた図」**です。VBAを使えば、この「リンクされた図」の貼り付けも自動化できます。

この記事では、指定したセル範囲をコピーし、元のデータへのリンクを持つ画像として貼り付けるための、VBAコードを解説します。

完成したVBAコード

以下が、「SourceData」シートのB2:E10の範囲をコピーし、「Dashboard」シートのC3セルに「リンクされた図」として貼り付けるVBAコードです。

Sub PasteRangeAsLinkedPicture()

    ' 変数を宣言します
    Dim sourceRange As Range
    Dim pasteCell As Range
    
    '--- 設定 ---
    ' コピー元のセル範囲
    Set sourceRange = ThisWorkbook.Worksheets("SourceData").Range("B2:E10")
    ' 貼り付け先の起点となるセル
    Set pasteCell = ThisWorkbook.Worksheets("Dashboard").Range("C3")
    '--- 設定ここまで ---
    
    Application.ScreenUpdating = False
    
    ' --- 1. コピー元の範囲を通常通りコピー ---
    sourceRange.Copy
    
    ' --- 2. 貼り付け先のシートとセルをアクティブにする ---
    pasteCell.Parent.Activate
    pasteCell.Select
    
    ' --- 3.「リンクされた図」として貼り付け ---
    ' Pictures.PasteメソッドのLink引数をTrueに設定します
    ActiveSheet.Pictures.Paste Link:=True
    
    ' (任意) 貼り付けた図形の名前などを設定
    ' With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
    '     .Name = "LinkedReportTable"
    ' End With

    Application.ScreenUpdating = True
    
    MsgBox "セル範囲を「リンクされた図」として貼り付けました。"

End Sub

コードのポイント解説

① 通常のコピー `.Copy`

sourceRange.Copy

処理の始まりは、通常のセル範囲のコピーです。対象となるRangeオブジェクトの.Copyメソッドを実行し、範囲の情報をクリップボードに送ります。

② リンクされた図として貼り付け: `.Pictures.Paste(Link:=True)`

ActiveSheet.Pictures.Paste Link:=True

ここが、このテクニックの核心部分です。 ActiveSheet.Pictures.Pasteは、クリップボードの中身を図（画像）として貼り付けるメソッドですが、オプションの引数である**LinkをTrueに設定**することで、ただの画像ではなく、コピー元のセル範囲への「リンク」情報を持った特殊な図として貼り付けられます。