ワークシートの背景に印刷されない画像を表示する
画像をシート背景に設定します。背景画像は印刷されません。
実行前に確認
- 既存の背景画像を置き換えます。解除は［ページレイアウト］→［背景の削除］です。
1サンプルコード
Sub Sample3099()
Dim p As Variant
p = Application.GetOpenFilename("Images,*.jpg;*.png;*.bmp")
If VarType(p) = vbBoolean Then Exit Sub
ThisWorkbook.Worksheets("練習").SetBackgroundPicture Filename:=CStr(p)
End Sub図で見る操作の流れ
イメージ図コードの動きを表した概念図です。実際のExcel画面ではありません。
手動：画像を選ぶ
選択画面でjpg・png・bmpから練習用画像を選ぶ
マクロ：シート背景を設定
「練習」のSetBackgroundPictureに画像を渡す
結果：シート上に背景画像
既存の背景があれば選んだ画像で置き換わる
選択キャンセルなら終了します。背景画像は印刷されません。解除は手動で［ページレイアウト］→［背景の削除］です。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する3つの手順で、コードの使い方を確認できます
- 1
練習用のブックをExcelマクロ有効ブック（.xlsm）で保存します。練習シートと、背景に使うローカル画像を用意します。
- 2
Alt＋F11でVBEを開き、［挿入］→［標準モジュール］にコードを貼り付けます。
- 3
Sample3099内にカーソルを置いてF5で実行します。画像をシート背景に設定します。背景画像は印刷されません。