title: add image as comment VBA
body: <p>I found this code to insert images into excel 2013 but the images are large than the cells they're going into. I think the best option it to load the images as comments.                                                              </p>
  
  <p>Can someone modify this VBA below to add this as a comment?</p>
  
  <pre><code>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
  </code></pre>