Dynamic Picture Viewer

[Saighead]

Hi,

I have a list of image file names (minus the extensions) in column A and an Image ActiveX control embedded on Sheet1. Could you help me with a code that would access and display the images? For instance, when a cell in column A containing "Image1" is selected, Excel should access "c:\images\Image1.gif" and display it in the Image ActiveX control.

All images are gif files and all are stored in c:\images\.

_________
Question also posted here

 

[Scott T]

This will only work for GIF files if you put a file with a different extension you will get a message box telling you that the file does not exist

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A7")) Is Nothing Then
    Dim mpath As String
    Dim haserror As Boolean
    mpath = "C:\images\" & Target & ".gif"
    haserror = True
    On Error GoTo error
    Sheets("Sheet1").Image1.Picture = LoadPicture(mpath)
    Image1.PictureSizeMode = 3 'Change to 0, 1, 3 depending on what you want.
    haserror = False
End If
If haserror Then
error:
    MsgBox "file does not exist"
End If
End Sub

for more info on the picturesizemode see here
https://docs.microsoft.com/en-us/of.../user-interface-help/picturesizemode-property