title: How to resize all images on a worksheet?
body: <p>I have several images on a worksheet.  I want to resize them all to the same size, but I can't seem to get it working quite right.  I thought it would be like the code below, but this actually makes everything different sizes.</p>
  
  <pre><code>Sub ChangeAllPics()
  Dim s As Shape
  For Each s In ActiveSheet.Shapes
  s.Select
      s.Width = 500
      s.Height = 200
  Next s
  End Sub
  </code></pre>