title: Shape names PPT VBA
body: <p>I am trying to reference shapes by index in PPT VBA.  It is working but it is a hit and miss because I am cutting and pasting them to different slides so the indexes keep changing.  Is there another way to reference shapes so I don't have to deal with the indexes? Here is an example of my code:</p>
  
  <pre><code>ActivePresentation.Slides(1).Shapes(3).Cut
  ActivePresentation.Slides(2).Shapes.Paste
  ActivePresentation.Slides(1).Shapes(4).Cut
  ActivePresentation.Slides(2).Shapes.Paste
  
   With ActivePresentation.Slides(1).Shapes(3)
  .Height = 325
  .Width = 325
  .Left = 190
  .Top = 90
  
  End With
  
  With ActivePresentation.Slides(1).Shapes(4)
  .Height = 600
  .Width = 600
  .Left = 65
  .Top = 360
  
  End With
  </code></pre>