Adding pictures as cell comments

[Jason17]

hi, i'm new to excel - i know, from browsing, that similar questions have been asked but i'd be really grateful if someone could help

i'm trying to find a quick way to be able to insert a picture (jpg) as a comment in a cell - i've got lots of different pictures to insert as comments to lot of different cells.

While browsing, i found this macro:

Sub Img_in_Commentbox()
With Application.FileDialog(msoFileDialogFilePicker)
         .AllowMultiSelect = False          'Only one file
         .InitialFileName = CurDir         'directory to open the window
         .Filters.Clear                    'Cancel the filter
         .Filters.Add Description:="Images", Extensions:="*.jpg", Position:=1
         .Title = "Choose image"

         If .Show = -1 Then TheFile = .SelectedItems(1) Else TheFile = 0
    End With
'No file selected
If TheFile = 0 Then
MsgBox ("No image selected")
Exit Sub
End If
Range("A1").AddComment
    Range("A1").Comment.Visible = True
[A1].Comment.Shape.Fill.UserPicture TheFile
End Sub

it works (allows me to chose a picture to insert as a comment) but the problem i have is that whichever cell i select, it always inserts the picture as a comment to cell A1. I want to be able to insert the comment in whichever cell in the worksheet i choose - don't know how to change the macro to do this

Thanks in advance for any help

 

[FormR]

Welcome to the forum - to use the current active cell, try:

Sub Img_in_Commentbox()
With Application.FileDialog(msoFileDialogFilePicker)
         .AllowMultiSelect = False          'Only one file
         .InitialFileName = CurDir         'directory to open the window
         .Filters.Clear                    'Cancel the filter
         .Filters.Add Description:="Images", Extensions:="*.jpg", Position:=1
         .Title = "Choose image"


         If .Show = -1 Then TheFile = .SelectedItems(1) Else TheFile = 0
    End With
'No file selected
If TheFile = 0 Then
MsgBox ("No image selected")
Exit Sub
End If
ActiveCell.AddComment
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Fill.UserPicture TheFile
End Sub

 

[Jason17]

hi & thanks very much for the reply - that works

exactly what i was after