Я нашел этот код для вставки изображений в Excel 2013, но изображения больше, чем ячейкиидет в. Я думаю, что лучший вариант это загрузить изображения в качестве комментариев.

Может ли кто-нибудь изменить этот VBA ниже, чтобы добавить его в качестве комментария?

Sub URLPictureInsert()
Dim cell, shp As Shape, target As Range
    Set rng = ActiveSheet.Range("R2:R5") ' range with URLs
    For Each cell In rng
       filenam = cell
       ActiveSheet.Pictures.Insert(filenam).Select

  Set shp = Selection.ShapeRange.Item(1)
   With shp
      .LockAspectRatio = msoTrue
      .Width = 50
      .Height = 50
      .Cut
   End With
   Cells(cell.Row, cell.Column + 5).PasteSpecial

Next

End Sub