Znalazłem ten kod, aby wstawić obrazy do programu Excel 2013, ale obrazy są duże niż komórki, w które wchodzą. Myślę, że najlepszą opcją jest załadowanie zdjęć jako komentarzy.

Czy ktoś może zmodyfikować ten VBA poniżej, aby dodać go jako komentarz?

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