Ich habe diesen Code gefunden, um Bilder in Excel 2013 einzufügen, aber die Bilder sind größer als die Zellen, in die sie gehen. Ich halte es für die beste Option, die Bilder als Kommentare zu laden.

Kann jemand diese VBA unten ändern, um dies als Kommentar hinzuzufügen?

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