añadir imagen como comentario VBA

Encontré este código para insertar imágenes en Excel 2013, pero las imágenes son más grandes que las celdas en las que están ingresando. Creo que la mejor opción es cargar las imágenes como comentarios.

¿Alguien puede modificar este VBA a continuación para agregar esto como un comentario?

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

Respuestas a la pregunta(5)

Su respuesta a la pregunta