powerpoint VBA -- 自動調整位置

Public Sub test()
  For Each sl In ActivePresentation.Slides
     sl.Shapes(1).Top = 40
     sl.Shapes(1).Left = 50
     
     sl.Shapes(2).Top = 150
     sl.Shapes(2).Left = 50
  Next
End Sub