title: Pasted Shape not seen as "Latest" Shape
body: <p>I'm in the process of automating the production of a PowerPoint report from and Excel spreadsheet.  I've got the process working up until I paste a table.</p>
  
  <p>I'm pasting the table to PowerPoint using <code>PPApp.CommandBars.ExecuteMso ("PasteSourceFormatting")</code> and the table appears as a shape on my slide (the third shape). </p>
  
  <p>To refer to the new shape I was using <code>Set pShape = Slide2.Shapes(Slide2.Shapes.Count)</code> but now now when I paste, the <code>pShape</code> is assigned "Shape 2" (not "Shape 3").  Is there something that needs to be done between the pasting and the assignment of the object?</p>
  
  <p>Code below, commented where the issue occurs. (Full code removed; viewable <a href="https://stackoverflow.com/revisions/51169904/1">here</a>)</p>
  
  <pre><code>'Copy tables from Excel
  Set rng = ws.Range("A:A")
  rng.ColumnWidth = 22.75
  Set rng = ws.Range("A4:C27")
  
  'Copy the table range
  Application.CutCopyMode = False
  rng.Copy
  Application.Wait (Now + TimeValue("0:00:02"))
  
  'The issue occurs here!!! '-------------------------------------
  'Paste the table in to the slide
  Slide2.Select
  PPApp.CommandBars.ExecuteMso ("PasteSourceFormatting")
  
  'Name the new shape object
  Set pShape = Slide2.Shapes(Slide2.Shapes.Count)
  pShape.Name = "Slide_2_Table_1"
  pShape.LockAspectRatio = False
  </code></pre>