MouseOver cell that makes apear and disappear an image

Hi mates.

I need the same thing that has been posted on this thread, but updated to Excel 2010:
http://excel.bigresource.com/Track/excel-a6YFd1sx/

The original code was:

Sub AddPicToCellComment()
    Dim r As Range, i As Range

    Set r = Range("G1")
    Set i = Range("A1")


    With Application.FileSearch
        .LookIn = ThisWorkbook.Path
        .Filename = "*.jpg"
        If .Execute > 0 Then    'there is a .jpg
            r = .FoundFiles(1)
        End If
    End With

    With i
        .ClearComments
        .addComment
    End With

    With i.Comment.Shape
        .Fill.UserPicture r
        .Width = 600
        .Height = 400

    End With


End Sub

Wich stopped working on Excel 2003 because Application.FileSearch isnt used anymore.

This link http://excel2007tips.blogspot.com/20...h-in-2007.html has been posted in the same topic as a solution, but i couldnt get it implemented.

Please, can you help me ?

Best regards

Try...

Option Explicit

Sub AddPicToCellComment()

    Dim strPath As String
    Dim strFile As String
    
    strPath = ThisWorkbook.Path & "\"
    
    strFile = Dir(strPath & "*.jpg", vbNormal)
    
    If Len(strFile) <> 0 Then
        With Range("A1")
            .ClearComments
            .AddComment
            With .Comment.Shape
                .Fill.UserPicture strPath & strFile
                .Width = 600
                .Height = 400
            End With
        End With
    Else
        MsgBox "No JPG file found...", vbExclamation
    End If
    
End Sub

Hi Domenic, thank you very much for your feedback.

The code worked perfecly but only on CEL A1, can it search for images at the whole Column G (Sorry for the missing info).

In time, is there a way to always show the comment at the center of the screen ? Some of the images shown are big and if they appear right next to the cell the user will need to scroll down.

I found this code wich, if i click on the comment cel, it moves the Comment Shape a little left/right, but i need it on the absolut center.

Best regards

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim targetCom As Comment
If Target.Cells.Count = 1 Then
On Error Resume Next
Set targetCom = Target.Comment
On Error GoTo 0
If Not targetCom Is Nothing Then
If ActiveCell.Column > 31 Then
With targetCom
.Shape.Top = .Parent.Offset(2, 0).Top
.Shape.Left = .Parent.Offset(2, -10).Left
End With
Else
With targetCom
.Shape.Top = .Parent.Offset(2, 0).Top
End With
End If
End If
End If

The code worked perfecly but only on CEL A1, can it search for images at the whole Column G (Sorry for the missing info).

Can you please clarify?