How Do I Remove Hyper-Link from ALL Objects (Images) In Every Cell at once?

ok was a bit easier than i thought it would be to do just objects

Sub DeleteObjectHyperlinks()
    With ActiveSheet
        For Each Shape In .Shapes
            .Hyperlinks.Delete
        Next Shape
    End With
End Sub

Hello there!

I'm new to this forum but I'm facing exactly the same. Somehow the above macro doesn't work for me.
I have a sheet with hundreds of images that are copied in a cell via a macro. The macro looks into a folder of images, ties the right image to the an item code and resizes the image to fit the cell. Working great!
I'm trying now to remove the links from images in this sheet so that every image is part of the sheet and is not referred to via a link. The purpose for that is to be able to share the excel file without having to share the folder with all the images as well.

Any solutions?

Would be much appreciated!