Excel VBAで図として表をリンク貼り付け: PicturesコレクションのPasteメソッドの使い方

Excel VBAのPicturesコレクションのPasteメソッドを使用して、コピーした表を図としてリンク貼り付ける手順とテクニックをわかりやすく解説します。

Excelで作った表を図として別のシートにリンク貼り付けたいんだけど、VBAでどうやるの？

それなら、Excel VBAのPicturesコレクションのPasteメソッドを使うといいですよ。この方法では、コピーした表を図として扱い、別の場所に貼り付けることができます。

Picturesコレクションとは？

Excel VBAにおける「Picturesコレクション」は、Excelのワークシートに挿入された画像や図を操作するためのオブジェクトの集合体です。このコレクションを通じて、プログラミング的に画像の追加、編集、削除などが可能になります。

具体的には、Picturesコレクションはワークシート内に存在するすべての画像オブジェクトを含み、これらの画像に対して様々な操作を行うことができます。例えば、特定の画像を選択したり、サイズを変更したり、位置を変えるといったことが可能です。

また、このコレクションの重要な機能の一つに「Pasteメソッド」があります。これは、クリップボードにコピーされた内容（例えば、他のシートの表など）を画像としてワークシートに貼り付ける際に使用されます。このメソッドを使うことで、コピーした表やグラフを図として扱い、他の場所に効率的にリンク貼り付けすることが可能になります。

Pasteメソッドの基本

Excel VBAのPicturesコレクション内の「Pasteメソッド」は、クリップボードにコピーされた内容をワークシートに画像として貼り付けるために使用されます。

基本的な使い方は以下の通りです：

コピーする要素の選択: まず、Excel内でコピーしたい表やグラフなどの要素を選択し、クリップボードにコピーします。これは通常、選択して「Ctrl + C」を押すことで行います。
Pasteメソッドの使用: 次に、VBAのコード内でPicturesコレクションのPasteメソッドを呼び出します。このメソッドは、現在のワークシートに対して実行され、クリップボードの内容を画像として貼り付けます。

ActiveSheet.Pictures.Paste

表を図としてリンク貼り付けるサンプルプログラム

以下は、Excel VBAを用いて特定の表をコピーし、それを図として別のシートにリンク貼り付けるためのサンプルプログラムです。

このプログラムでは、まず特定の範囲（表）をコピーします。その後、別のシートをアクティブにし、そこにコピーした表を図として貼り付けます。

Sub CopyTableAsPicture()
    Dim sourceSheet As Worksheet
    Dim destinationSheet As Worksheet
    Dim copiedRange As Range

    ' コピーする表があるシートと範囲を指定
    Set sourceSheet = ThisWorkbook.Sheets("元のシート名")
    Set copiedRange = sourceSheet.Range("コピーする範囲") ' 例: "A1:D10"

    ' 範囲をコピー
    copiedRange.Copy

    ' 貼り付け先のシートを指定
    Set destinationSheet = ThisWorkbook.Sheets("貼り付け先のシート名")

    ' 貼り付け先のシートをアクティブに
    destinationSheet.Activate

    ' コピーした範囲を図として貼り付け
    destinationSheet.Pictures.Paste

    ' オプション: 貼り付けた図の位置やサイズを調整
    With destinationSheet.Pictures(destinationSheet.Pictures.Count)
        .Top = destinationSheet.Range("貼り付け位置").Top ' 例: "F1"
        .Left = destinationSheet.Range("貼り付け位置").Left
        ' 他にもサイズや形式の調整が可能
    End With
End Sub

このプログラムを実行するには、適切なシート名と範囲を指定する必要があります。また、貼り付け位置の調整も可能ですが、この例では貼り付け先のシートの特定のセル（例: “F1″）に合わせて貼り付けています。

このようなプログラムを用いることで、報告書やプレゼンテーション資料での表の扱いがより柔軟に、効率的に行えるようになります。また、コード内での調整により、貼り付ける図のサイズや位置のカスタマイズも可能です。