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