title: "index into the specified collection is out of bounds" inconsistent on different systems
body: <p>I use the following code in an Excel workbook to paste the contents of a screenshot into a chart, then export the image as a PNG file.  This script executes as expected on one machine, but fails on another machine on line "With canvas.Shapes(1)" with the following error:</p>
  
  <pre><code>Error -2147024809: The index into the specified collection is out of bounds.
  </code></pre>
  
  <p>Both machines are Excel Version 14.0.7166.5000 (64-bit) running on Windows 7 Pro.  I cannot figure out why I would get an index error on one machine and not the other.  </p>
  
  <pre><code>Set canvas = ws.ChartObjects.Add(10, 10, GetSystemMetrics(DESKTOPX), GetSystemMetrics(DESKTOPY)).Chart
  canvas.Paste
  
  With canvas.Shapes(1)
      .ScaleWidth 100, msoTrue
      .ScaleHeight 100, msoTrue
  End With
  
  canvas.Export FileName, "png"
  
  Do While ws.Shapes.Count &gt; 0
      ws.Shapes(1).Delete
  Loop
  </code></pre>