title: VBA Excel 2010 - Embedding Pictures and Resizing
body: <p>I've been lurking for a while and found it very helpful, so thanks for the help already!</p>
  
  <p>I'm trying to write a macro to embed images into a worksheet from individual files and resize them, whilst keeping the full resolution of the image intact should it need to be enlarged again. First of all I tried:</p>
  
  <pre><code>ActiveSheet.Pictures.Insert(imageName).Select
  With Selection.ShapeRange
      .Height = 100
      .Width = 100
  End With
  </code></pre>
  
  <p>This essentially inserted a link to the picture and if the image file was removed or the excel file moved to another computer, the link would be broken. Next I tried:</p>
  
  <pre><code>ActiveSheet.Shapes.AddPicture Filename:=imageName, _
      linktofile:=msoFalse, _
      savewithdocument:=msoCTrue, _
      Width:=100, _
      Height:=100
  </code></pre>
  
  <p>This code also works, but the image is resized to 100 * 100 pixels before insertion, so the original file resolution is lost.</p>
  
  <p>Is there any way to insert image files and <em>then</em> scale them down in size, so that the original resolution is retained?</p>