Sub Macro2(control as IRibbonControl)
  Dim oShp As Shape, oSld As Slide, pst As Presentation, pass As Integer
  'On Error Resume Next dont like these, I suggest not to use it without handling

  'set the variables
  Set pst = ActivePresentation
  
  'start the loops
  For Each oSld In pst.Slides
    For Each oShp In oSld.Shapes
      pass = 1
      'check if we want to skip the shape
      If oShp.HasTextFrame = msoFalse Then pass = 0
      'we can add as many as we want here in case there is more criteria needed
      If pass = 1 Then
        With oShp
          .LockAspectRatio = False
          .Left = 34.5
          .Top = 84.5
        End With
      End If
    Next oShp
  Next oSld
End Sub