Ok, try this
set SourceRange as the range containing your hyperlinks, and DestCell as first cell to copy the pictures to
the macro puts the pictures in successive rows begining at DestCell. it also attaches a hyperlink to the original picture.
It sizes all imported pictures to 1 inch high (width is scaled proportionate to the original picture)
and sets the row height to be slightly higher than this, so each picture fits in one row
you may want to juggle these bits
Sub pictures_import()
Dim DestCell As Range, SourceRange As Range, CCell As Range, ww As Long, hh As Long
Set SourceRange = Range("A1:A10") 'range containing hyperlinks
Set DestCell = Range("A12") ' first cell to copy picture to
DestCell.Select
For Each CCell In SourceRange.Cells
ActiveSheet.Pictures.Insert(CCell.Hyperlinks(1).Address).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=CCell.Hyperlinks(1).Address
hh = Selection.Height
ww = Selection.Width
Selection.Height = 72 ' sets picture height
Selection.Width = ww / hh * Selection.Height ' sets width
On Error Resume Next
ActiveCell.RowHeight = Selection.Height + 6
ActiveCell.Offset(1, 0).Select
Next CCell
End Sub
Bookmarks