Hier ein aufs Wesentliche reduzierte Beispiel:

Option Explicit

Sub Example()
  
  Dim objShape1 As PowerPoint.Shape
  Dim objShape2 As PowerPoint.Shape
  
  Set objShape1 = ActivePresentation.Slides(1).Shapes(1) 'erste Folie, erste AutoForm
  Set objShape2 = ActivePresentation.Slides(2).Shapes(1) 'zweite Folie, erste AutoForm
  
  objShape2.Left = objShape1.Left
  objShape2.Top = objShape1.Top
  
End Sub

Grüße