セル範囲を画像としてコピーする【CopyPictureメソッド】【ExcelVBA】

構文
CopyPictureメソッドのコードサンプル
注意点
関連記事

構文

Object.CopyPicture(Appearance, Format, Size)

設定項目は以下参照。
指定したオブジェクトを画像データとしてコピーします。
Excel2019の［ホーム］タブ→［コピー］→［図としてコピー(P)］と同様の動作です。

設定項目	内容	詳細	省略
Object	オブジェクトを指定。	Range	不可
		Chart
		ChartObject
		ChartObjectsコレクション
		Shape
		OLEObject
		OLEObjectsコレクション
Appearance	コピー形式を指定。	xlScreen：画面表示に近い形式(既定値)	可能
		xlPrinter：印刷時のイメージと同じ形式
Format	ピクチャの形式を指定。	xlPicture：ピクチャ形式(既定値)	可能
		xlBitmap：ビットマップ形式
Size	ピクチャのコピーサイズを指定。 ※グラフシートが対象の時のみ	xlScreen：画面表示のサイズ(既定値)	可能
		xlPrinter：印刷時サイズ

CopyPictureメソッドのコードサンプル

Public Sub test()

    '■セル範囲を画像としてコピーする(引数あり)
    Range("A1:D15").CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Paste Range("E1")

    '■セル範囲を画像としてコピーする(引数なし)
    Range("A1:D15").CopyPicture
    Paste Range("E1")

End Sub