Evo, rijesio sam problem 90%. Jedino ne mogu dobiti da mi je slika u originalnoj velicini pa sam automatski podesio sve slike, odredio dimenzije u excelu koje mi odgovaraju i to je to. Ako netko moze pomoci da ipak dobijem slike originalne velicine bio bih zahvalan.
Evo kod:
Sub PicFromCellNameColumnA()
Dim rngList As Range
Dim c As Range
Dim cmt As Comment
Dim strPic As String
On Error Resume Next
Range("A1").Select
Set rngList = Range(Selection, Selection.End(xlDown))
strPic = "C:\slike\"
For Each c In rngList
With c.Offset(0, 0)
Set cmt = c.Comment
If cmt Is Nothing Then
Set cmt = .AddComment
End If
With cmt
.Text Text:=""
.Shape.Fill.UserPicture strPic & c.Value & ".jpg"
.Shape.Select True
.Shape.width = 137
.Shape.height = 200
.Shape.LockAspectRatio = True
.Visible = False
End With
End With
Next c
End Sub