Excel2000 VBA 背景画像の表示非表示

Excel2000 VBA　背景画像の表示非表示

 pic_nameで設定した画像を背景画像として表示、非表示

Sub 背景画像の表示非表示()

Dim pic_name As String
Dim syori As Integer

ActiveSheet.Select

pic_name = "C:\Documents and Settings\ユーザー名\デスクトップ\ヤマト着払い送り状.bmp"

syori = MsgBox("指定している背景画像を表示するなら「はい」を" & vbCrLf & "削除するなら「いいえ」を押してください ", vbYesNo)

Select Case syori
    Case vbYes
        GoTo hyouji
    Case vbNo
        GoTo del
End Select

hyouji:
ActiveSheet.SetBackgroundPicture Filename:=pic_name         '背景画像を表示
Exit Sub

del:
ActiveSheet.SetBackgroundPicture Filename:=vbNullString     '背景画像を削除

End Sub

課題　背景画像の有無を調べる方法
　　　　画像をリピート表示させない方法

タグ：Excel2000 VBA シート背景