VBA～シートの背景を画像にしよう～Excel

VBAでシートの背景を画像にしたい場合はWorksheet.SetBackgroundPictureメソッドを設定します。

アクティブシート

下のコードを実行するとアクティブシートの背景に画像が設定されます。

Sub test1()

ActiveSheet.SetBackgroundPicture
"C:\Users\eccen\Desktop\001\home\excel\2000-確認未\0001すぐできそう\0888-VBA-シートの背景に画像を設定する-Excel\背景2.jpg"

End Sub

指定したシートの背景

シートを指定するときはWorksheets("シート名")で指定できます。

下のコードを実行するとSheet2の背景に画像が設定されます。

Sub test2()

Worksheets("Sheet2").SetBackgroundPicture
"C:\Users\eccen\Desktop\001\home\excel\2000-確認未\0001すぐできそう\0888-VBA-シートの背景に画像を設定する-Excel\背景2.jpg"

End Sub

ブックを指定して背景を設定

ブックを指定するときはWorkbooks("ブック名")で指定できます。

Book1.xlsxというブックが開いた状態で下のコードを実行するとBook1.xlsxのSheet1の背景に画像が設定されます。

Sub test3()

Workbooks("Book1.xlsx").Worksheets("Sheet1").ActiveSheet.SetBackgroundPicture Filename:=""
"C:\Users\eccen\Desktop\001\home\excel\2000-確認未\0001すぐできそう\0888-VBA-シートの背景に画像を設定する-Excel\背景2.jpg"

End Sub

背景の消去

背景を消去したい場合はWorksheet.SetBackgroundPictureメソッドのファイルパスを空白にすれば消去できます。

下のコードを実行すると背景が消去されます。

Sub test4()

ActiveSheet.SetBackgroundPicture Filename:=""

End Sub