シートの背景に画像を表示させる : Excel(エクセル)

Excel VBAでワークシートの背景に画像を表示させるには、SetBackgroundPictureメソッドのFilenameに画像ファイル名を指定します。
消去するには、Filenameに空文字("")を指定します。

Excel Tipsメニューに戻る

スポンサーリンク



Excel実行画面


「背景に画像を表示」「背景の画像を消去」ボタンからできています。
背景に画像を表示させるソフト

「背景に画像を表示」ボタンをクリックすると、ファイル名選択ダイアログボックスが表示されるので、表示させたい画像ファイルを選択します。
JPGファイル選択ダイアログ

画像を表示させたシートです。
JPG画像を表示したワークシート

スポンサーリンク



Excel VBA実行コード

Option Explicit

'ファイル選択ダイアログ
Private Function SelectFile_single()
    Dim sfile As String
    Dim i As Integer
    Dim s As String

    sfile = Application.GetOpenFilename("ファイルを選択してください (*.jpg), *.jpg")
    If sfile = "False" Then
        SelectFile_single = ""
    Else
        SelectFile_single = sfile
    End If
End Function

Private Sub CommandButton1_Click()
    Dim sfina  As String
    
    sfina = SelectFile_single
    If sfina <> "" Then
        '背景画像の表示
        ActiveSheet.SetBackgroundPicture Filename:=sfina
    End If
End Sub

Private Sub CommandButton2_Click()
    '背景画像の消去
    ActiveSheet.SetBackgroundPicture Filename:=""
End Sub

Excel Tipsメニューに戻る

スポンサーリンク






■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved