how to delete pictures only without hyperlinks

[bilestones]

Hello,
I have an excel sheet with hundreds of pictures in it, and the pictures having no hyperlinks are useless to me.
Searching the forum, i could only find to delete pictures with hyperlinks with the code below.
I need your support for the opposite - thanks,

Sub hyper()

Dim shp As Shape

For Each shp In ActiveSheet.Shapes

If shp.Hyperlink.Address <> "" Then shp.Delete

Next shp

End Sub

 

[Yongle]

Welcome to the forum

this deletes ALL SHAPES without a link

Sub Bilestones()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        On Error Resume Next
        Debug.Print shp.Hyperlink.Address
        If Err.Number = 1004 Then shp.Delete
        On Error GoTo 0
    Next shp
End Sub

 

[Yongle]

To restrict deletion only to pictures

Sub Bilestones2()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoPicture Then
            On Error Resume Next
            Debug.Print shp.Hyperlink.Address
            If Err.Number = 1004 Then shp.Delete
            On Error GoTo 0
        End If
    Next shp
End Sub

 

[bilestones]

Both works like a charm, many thanks!