VBA Excelユーザーフォーム。どの画像をクリックしたかを確認する方法

Question

私は10個のImageBox内に10個の画像を持つuserformを持っています。

Private Sub Image1_Click() 
    MsgBox "Image 1 clicked!" 
End Sub 

しかし、10枚の画像があるので、私は10回以上のコードを繰り返す必要があります：私は、私はこのようにクリックされたものを画像決定できることをご存知ですか？

Private Sub Image1_Click() 
    MsgBox "Image 1 clicked!" 
End Sub 

Private Sub Image2_Click() 
    MsgBox "Image 2 clicked!" 
End Sub 

Private Sub Image3_Click() 
    MsgBox "Image 3 clicked!" 
End Sub 

Private Sub Image4_Click() 
    MsgBox "Image 4 clicked!" 
End Sub 

etc 

もっとエレガントで簡潔な方法がありますか？

Answer 1

クラスモジュールで、cls_CustomImageは、ユーザーフォームの開口部に続いて

Private WithEvents customImage As Image 

Public Sub InitialiseCustomImage(imgToCusomise As Image) 
    Set customImage = imgToCusomise 
End Sub 
Private Sub customImage_Click() 
    MsgBox customImage.Name 
End Sub 

を以下していると呼ばれるようにするには、[オブジェクト配列の次

Public colCustomImages As Collection 

Private Sub UserForm_Initialize() 
Dim ctl As Control 
Dim clsCustomImage As cls_CustomImage 

Set colCustomImages = New Collection 

For Each ctl In Me.Controls 

    If TypeName(ctl) = "Image" Then 
     Set clsCustomImage = New cls_CustomImage 
     clsCustomImage.InitialiseCustomImage ctl 
     colCustomImages.Add clsCustomImage 
    End If 

Next ctl 
End Sub