Maybe you could put both the thumbnail and larger picture on the worksheet.

Then assign them the same macro. If you use nice names, it might even work!

I named my pictures:

Pic01_B, Pic01_S
(big and Small)
through
pic99_B, Pic99_S

Option Explicit
Sub testme()

Dim myPict As Picture
Dim OtherChar As String
Set myPict = ActiveSheet.Pictures(Application.Caller)

If LCase(Right(myPict.Name, 1)) = "s" Then
OtherChar = "b"
Else
OtherChar = "s"
End If

myPict.Visible = False
ActiveSheet.Pictures(Left(myPict.Name, Len(myPict.Name) - 1) _
& OtherChar).Visible = True

End Sub

This doesn't have any validation. You could either add it or be really careful
naming those pictures <vbg.



Jeff wrote:

Hello,

I want to put a picture in a Excel cell and have it represented as an icon
until someone clicks on it.

What we have is an inventory list with pictures.

Nothing I've tried seems to work very well.

Thanks,

--

Dave Peterson