PowerPoint vba doesn't really offer a convenient way to use ID like that.
The best solution is to write a custom function
Code:
Function ShapeByID(ThisSlide As Slide, ThisID As Long) As Shape
For Each ShapeByID In ThisSlide.Shapes
If ShapeByID.Id = ThisID Then
Exit Function
End If
Next
End Function
And an example of how to use to delete shape with ID=8 from slide 1
Code:
Sub exampleID()
On Error Resume Next
ShapeByID(ThisSlide:=ActivePresentation.Slides(1), ThisID:=8).Delete
End Sub
An easier solution is to use the selection pane to rename using unique names then ....
Code:
Sub DeleteByName()
On Error Resume Next ' in case shape doesn't exist
ActivePresentation.Slides(1).Shapes("MyName").Delete
End Sub