【VBA入門】ユーザーフォームに画像を表示する方法

2020 1/26

2020.01.26

VBAで便利なのがユーザーフォーム。
そんなユーザーフォームに画像を表示させるには、どうしたらいいのでしょうか？

今回は、ユーザーフォームに画像を表示させる（非表示にする）方法を2通り紹介します。

背景画像として表示

ユーザーフォームの背景画像として画像を表示する方法です。

'背景画像を表示
Private Sub CommandButton1_Click()
    UserForm1.Picture = LoadPicture("C:\Users\******\okinawa.jpeg")
    
End Sub

'背景画像を消去
Private Sub CommandButton2_Click()
    UserForm1.Picture = LoadPicture("")
End Sub

'背景画像を表示

Private Sub CommandButton1_Click()

UserForm1.Picture = LoadPicture("C:\Users\******\okinawa.jpeg")

End Sub

'背景画像を消去

Private Sub CommandButton2_Click()

UserForm1.Picture = LoadPicture("")

End Sub

UserForm名.Picture = LoadPicture(画像ファイルパス)

となります。
LoadPictureが画像を読み込む関数となります。
これをユーザーフォームの背景となるPictureプロパティにセットすればいいわけですね。

背景画像を非表示にする場合は画像ファイルパスを””にすればOK。

↓はユーザーフォームの背景を表示してみたGIF動画です。

Imageオブジェクトで表示する

ユーザーフォームの背景として表示するのではなく、ある枠の中に表示したい場合はこちらの方法になります。

まず、ユーザーフォームのツールボックスから「Image」を選択し、Imageオブジェクトを設置します。

ユーザーフォームの任意の場所に画像を表示したい枠を設置しましょう。

'画像を表示
Private Sub CommandButton1_Click()
    Image1.Picture = LoadPicture("C:\Users\******\okinawa.jpeg")
End Sub
'画像を非表示にする
Private Sub CommandButton2_Click()
    Set Image1.Picture = Nothing
End Sub