bilestones
New Member
- Joined
- Jul 9, 2020
- Messages
- 2
- Office Version
- 365
- Platform
- Windows
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,
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,
VBA Code:
Sub hyper()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Hyperlink.Address <> "" Then shp.Delete
Next shp
End Sub