mouse over to show pictures

Here some code that you can use:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$C$1" Then
ActiveSheet.Pictures.Insert("C:\Documents and Settings\Administrator\My Documents\My Pictures\Sample.jpg").Select
End If
End Sub
It should be placed in the sheet's code module.

Originally Posted by tryer

Is it possible to show pictures by mouse over a cell. I know i can put a hyperlink in a cell to an external picture file but would like to show pictures by just moving the mouse of predetermined cells. I assume if there is a way of doing this then the images would have to be stored on the sheet. Does anyone have any idea's - Thanks in advance

Hi tryer,

Here is one way. (from Chuck, CABGx3) If you don't mind the little triangle from a comment in the cell.

Right-click on a cell and select "Insert Comment",
then Left-click on the border of the comment box right where the cursor changes to a cross,
then select the arrow next to the "Fill Color" in the Drawing Toolbar, and choose "fill Effects",
choose PictureTab and follow the menu
this will place a picture in the comment box which will pop up
whenever you mouse over that cell.