I need the vba code to delete all the active x control images on a worksheet

[dpaton05]

I am still learning to code and I don't yet know how to delete all the active x control images on a worksheet. Could someone help me please?

 

[Logit]

.

Option Explicit


Sub byby()
    ActiveSheet.Shapes.SelectAll
    Selection.Delete
End Sub

 

[dpaton05]

Haven't tried that code but I found some other code that works:

Private Sub cmdNoSig_Click()
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
If Not Intersect(Pic.TopLeftCell, Range("A30:B300")) Is Nothing Then
Pic.Delete
End If
Next Pic
End Sub


There are some pics that I don't want to delete above row 30.

 

[rlv01]

Sub DelShape()
    Dim Sh As Shape
    Dim Ans As Integer
    With ActiveSheet
        For Each Sh In .Shapes
            
            Ans = MsgBox(Sh.Name & " located at (T:" & Sh.Top & ", L:" & Sh.Left & ")" & vbCr & vbCr & "Delete?", vbYesNoCancel + vbQuestion)
            Select Case Ans
            Case vbYes
                Sh.Delete
            Case vbCancel
                Exit Sub
            End Select
        Next Sh
    End With
End Sub