Ich habs gefunden!!

Falls es noch jemanden interessiert:

Dieser Code verschiebt eine der beiden Grafiken nach links:
Sub VerschiebenLinks()
Dim sh As Shape
Dim ppApp As Object
Set ppApp = CreateObject("Powerpoint.Application")

With ppApp.ActivePresentation.Slides(2).Shapes(1)
    .IncrementLeft -210
    '.IncrementTop -50
End With
End Sub

Dieser Code verschiebt eine der beiden Grafiken nach rechts:

Sub VerschiebenRechts()
Dim sh As Shape
Dim ppApp As Object
Set ppApp = CreateObject("Powerpoint.Application")

With ppApp.ActivePresentation.Slides(2).Shapes(2)
    .IncrementLeft 210
    '.IncrementTop -50
End With
End Sub