印刷されないシート背景の設定

 

 

Sub test()

    ' 印刷されないシート背景の設定

 

    Dim myPath As String
    myPath = ThisWorkbook.Path

    ActiveSheet.SetBackgroundPicture myPath & "\2025-Pic.png"

 

End Sub

 
 

Sub test2()

    ' シート背景の解除



    ActiveSheet.SetBackgroundPicture  ""

 

End Sub

 
実行結果

 

 

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

 

関連記事