Sub TestCode() 
Dim ppte As Object

'Open Existing PPT
Set ppte = CreateObject("PowerPoint.Application")
 
'Do something
With ppte
    .Visible = True
    .Presentations.Open (PathAndFilename) 'include file extension '.ppt'
 
   
    .ActiveWindow.View.GotoSlide 5 ' probably not needed
     .ActivePresentation.Slides(5).Shapes("Picture 32").Delete 'left one
 

    With .ActivePresentation.Slides(5).Shapes("Picture 31")
    .Left = 30
    .Name = "RenameTest"
    End With
End With
 
End Sub