This would togglke visibility. Easy to modify to delete
Sub chex()
Dim osld As Slide
For Each osld In ActivePresentation.Slides
With osld.Shapes.AddOLEObject(Left:=10, Top:=10, Height:=20, Width:=100, ClassName:="Forms.CheckBox.1")
.OLEFormat.Object.Caption = "Whatever"
End With
Next osld
End Sub
Sub toggler()
Dim osld As Slide
Dim oshp As Shape
Dim L As Long
For Each osld In ActivePresentation.Slides
For L = osld.Shapes.Count To 1 Step -1
Set oshp = osld.shapse(L)
If oshp.Type = msoOLEControlObject Then
Debug.Print oshp.OLEFormat.ProgID
If oshp.OLEFormat.ProgID = "Forms.CheckBox.1" Then
oshp.Visible = Not oshp.Visible
End If
End If
Next L
Next osld
End Sub
NOTE I have corrected the case in the original ProgID Forms.checkbox.1
Class is not case sensitive but ProgID inFind is case sensitive and should be correct or it will not work