VBA～ユーザーフォームのイメージをクリックした時の処理を設定しよう～Excel

ユーザーフォームのイメージをクリックした時の処理を設定する方法を解説します。

イメージをダブルクリックすると下のコードが表示されます。

Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As
Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As
Integer)

End Sub

このコードを消して下のコードに書き換えます。

Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

End Sub

ここに処理内容を書き込めばイメージをダブルクリックしたときの処理を設定できます。今回は下のコードにイメージをクリックするとセルA1を赤くする処理を書き込みました。

Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Range("A1").Interior.Color = RGB(255, 0, 0)
Unload UserForm1

End Sub

VBAで下のコードを実行すると作成したユーザーフォームが表示されイメージをクリックするとセルA1が赤くなります。

Sub test1()

UserForm1.Show

End Sub