CHANGE IMAGE WHEN I SELECT ANOTHER NAME ON LIST BOX

Hello,

Understand...

Since the images are in another worksheet within the same Excel file, you can use VBA to copy the image from the worksheet into the UserForm’s Image control dynamically based on the selected item in the ListBox.

There are some points you should pay attention to.

Ensure Each Image Has a Unique Name: On the worksheet with the images, each image should have a unique name that corresponds to the names in the ListBox.

Modify the UserForm Code: Use the ListBox1_Change event to load the corresponding image into the Image control on the UserForm.

Can you try the command like this?

Private Sub UserForm_Initialize()
    ' Populate the ListBox with names (or IDs) from the worksheet or directly
    With ListBox1
        .AddItem "Name1"
        .AddItem "Name2"
        ' Add as many items as needed, or load dynamically from a range
    End With
End Sub

Private Sub ListBox1_Change()
    Dim selectedName As String
    Dim ws As Worksheet
    Dim imgShape As Shape
    
    ' Set the worksheet where images are stored
    Set ws = ThisWorkbook.Sheets("ImagesSheet") ' Replace "ImagesSheet" with your actual sheet name
    
    ' Get the selected name from the ListBox
    selectedName = ListBox1.Value
    
    ' Try to find the shape with the same name as selected in the ListBox
    On Error Resume Next
    Set imgShape = ws.Shapes(selectedName)
    On Error GoTo 0
    
    ' If the shape exists, load it into the Image control on the UserForm
    If Not imgShape Is Nothing Then
        ' Export the shape as a temporary image
        Dim tempPath As String
        tempPath = Environ("TEMP") & "\" & selectedName & ".jpg"
        imgShape.Copy
        ws.Paste
        ws.Shapes(ws.Shapes.Count).Export tempPath
        ws.Shapes(ws.Shapes.Count).Delete
        
        ' Load the exported image into the Image control
        Image1.Picture = LoadPicture(tempPath)
        
        ' Optionally delete the temporary file if you want
        Kill tempPath
    Else
        MsgBox "Image not found for " & selectedName, vbExclamation
    End If
End Sub

Best Regards,

Ali Koc