Powerpoint VisualBasic Script

Sub pos()
    With ActivePresentation.Slides(1).Shapes(1)
        .Left = 200
        .Top = 100
        .Width = 300
        .Height = 200
    End With
End Sub