VBA - change image UserForm

[OldAndWeak182]

Hi guys,
I have inserted some images in the UserForm and I would like them to change depending on the checkbox I check.
Do you think it is possible to do such a thing?

Max

 

[Saurabhj]

Hi,

I created VBA based on combobox value. Similarly you can do for checkbox value.

Private Sub ComboBox1_Change()
    Dim selValue As String
    Dim imagePath As String
    Dim picName As String
    
    selValue = ComboBox1.Value
    imagePath = "C:\Excel\Images\"
    If selValue = "1" Then picName = "ErrorAlert.jpg"
    If selValue = "2" Then picName = "happykids.jpg"
    If selValue = "3" Then picName = "happyface.jpg"
    Image1.Picture = LoadPicture(imagePath & picName)
End Sub


Private Sub UserForm_Activate()
    ComboBox1.AddItem "1"
    ComboBox1.AddItem "2"
    ComboBox1.AddItem "3"
End Sub