title: Excel VBA: Copy and paste shapes at same position
body: <p>I want to copy all shapes from one worksheet and paste them on another worksheet at the same position. The shapes can be rectangular callouts or pictures. </p>
  
  <p>So far, I know how to loop through all shapes in my old worksheet: </p>
  
  <p><code>Dim s As Shape
  For each s in Activesheet.Shapes
  ...
  Next</code></p>
  
  <p>How do I copy and paste the shapes at the same position in another worksheet, say Sheets("new")?</p>