Hi everyone,
I'm trying to modify this code so it will insert comment with pictures in column A. Here what I got so far:
I left an example file below.
This where I originaly got the code from.
http://www.vbaexpress.com/forum/showthread.php?t=8789
[vba]Sub pix()
Dim rngCell As Range
Dim curWks As Worksheet
Dim c As Object
Dim Path As String
Set curWks = ActiveSheet
Path = "C:\" & Range("A2:a" & Cells(Rows.Count, "A").End(xlUp).Row).Text & ".jpg"
With rngCell.Offset(0, 0)
.AddComment("").Shape.Fill.UserPicture (Path)
For Each c In ActiveSheet.Comments
c.Shape.Width = 400
c.Shape.Height = 300
Next c
End With
End Sub[/vba]