title: Insert images from folder into cells
body: <p>I want to insert all the images of a folder, one by one, to incrementing cells in Excel.</p>
  
  <p>For example, picture 1 should be inserted in cell E1, then picture 2 in cell E2, etc.</p>
  
  <p>My code can only insert one picture from this directory in a hardcoded cell:</p>
  
  <pre><code>Sub Insert()
  
  Dim myPict As Picture
  Dim PictureLoc As String
  PictureLoc = "C:\MyFolder\Picture1.png"
  
  With Range("E1")
      Set myPict = ActiveSheet.Pictures.Insert(PictureLoc)
      .RowHeight = myPict.Height
      myPict.Top = .Top
      myPict.Left = .Left
      myPict.Placement = xlMoveAndSize
  End With
  End Sub
  </code></pre>