Delete All pics in Excel Worksheet - with one click - Macro

Sub DeleteAllPics()

  Dim Pic As Object
 
    For Each Pic In ActiveSheet.Pictures
      Pic.Delete
    Next Pic
   
End Sub

Remove All Hyperlinks in Word or Excel

Word
Hit [ALT]+[F11] to open the Visual Basic Editor
Go to “Insert” > “Module” and in the pop-up window copy:

Sub RemoveHyperlinks()
Dim oField As Field
For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldHyperlink Then
oField.Unlink
End If
Next
Set oField = Nothing
End Sub

Then click “File” > Close and return to Microsoft Word
You can now run the Macro in Word by going to:
Tools > Macro > Macro and then Run “RemoveAllHyperlinks”


Excel:
You can do the same in an Excel Document:
Hit [ALT]+[F11] to open the Visual Basic Editor
Go to “Insert” > “Module” and in the pop-up window copy:

Sub RemoveHyperlinks()
'Remove all hyperlinks from the active sheet
ActiveSheet.Hyperlinks.Delete
End Sub


Then click “File” > Close and return to Microsoft Excel
You can now run the Macro in Excel by going to:
Tools > Macro > Macro and then Run “RemoveAllHyperlinks”, this will delete all URLS on the selected worksheet.