title: Excel Insert Pictures into cell - center and set move and size - cells are changing and they are not fixed
body: <p>I am trying to insert pictures in to my sales overview. I was looking for an answer online however I can't find simple solution any ware... </p>
  
  <p>I have following code:</p>
  
  <pre><code>ActiveSheet.Shapes.AddPicture Filename:=picturefilename, LinkToFile:=msoFalse, _
  SaveWithDocument:=msoCTrue, Left:=picturecell.Left, Top:=picturecell.Top, Width:=75, Height:=75
  </code></pre>
  
  <p>Thing is that cells are not fixed, this a long loop and every time location will be different, furthermore cell is wider than a picture.</p>
  
  <p>How can I center the picture in cell and change settings to move and size with cells without selecting the shapes? So without using "Selection" since the number of pictures is not fixed and will be different every time...:</p>
  
  <pre><code>Selection.Placement = xlMoveAndSize
  </code></pre>
  
  <p>Or </p>
  
  <pre><code>Selection.ShapeRange.IncrementLeft (picturecell2.Width - Selection.ShapeRange.Width) / 2
  </code></pre>