The code might go something like:
[VBA]Sub AddMyPics()
Dim picsPath As String, fn As String, dpfn As String
Dim r As Range, s As Shape

'Set folder name that contains JPG picture files.
picsPath = "c:\myfiles\excel\pics\"

'End if picPath does not exist.
If Dir(picsPath, vbDirectory) <> "." Then
MsgBox "Folder Does Not Exist:" & vbCrLf & picsPath, vbCritical, "Macro Ending"
Exit Sub
End If

'Set initial cell to start adding pictures and info.
Set r = Range("A2")

'Iterate through the JPG picture files.
fn = Dir(picsPath & "*.jpg")
Do While fn <> ""
'36 points = 1/2"
With r
.RowHeight = 36
.ColumnWidth = 6 '6 would be the 36 point. A1 changed to Pic rather than Graphic.
dpfn = picsPath & fn
.Offset(0, 1).Value = dpfn
Range(r, .Offset(0, 2)).HorizontalAlignment = xlGeneral
Range(r, .Offset(0, 2)).VerticalAlignment = xlCenter
'*** Modify as needed below for the ImgTags.
.Offset(0, 2).Value = "<img src=" & fn & ">"
'AutoFit Columns B and C.
Range("B:C").Columns.AutoFit
Set s = ActiveSheet.Shapes.AddPicture(dpfn, msoTrue, msoFalse, .Left, .Top, 36, 36)
'Rename picture shape's name to be fn.
s.Name = fn
'Set a macro to play when picture shape is clicked.
s.OnAction = "'ShowInfo """ & dpfn & """'"
fn = Dir
Set r = .Offset(1, 0)
End With
Loop
End Sub

Sub ShowInfo(sInfo As String)
MsgBox sInfo
End Sub[/VBA]