remove hyperlinks from objects in the excel workbook using vb

  • Thread starter Thread starter asmita
  • Start date Start date
A

asmita

hi
i am trying to remove hyperlinks that are linked to objects in th
excel workbook using vb.
the code that i am using is as follows:

If wSheet.Hyperlinks(i).Type <> 0 Then
wSheet.Hyperlinks(i).Delete
ObjExcel.Save
hashyperlinks = True
End If

this code does not remove hyperlinks from the organizational charts
flow charts, cycle diagrams, etc. it just removes hyperlinks from th
images
can some1 pls help.

thanks in advanc
 
The code below removes all hyperlinks in a worksheet.
To remove special types re-enable the commented out lines and amend a
necessary.

Code
-------------------

Sub untested()
' Hyperlink types:
'oHyperlinkInlineShape, msoHyperlinkRange, msoHyperlinkShape.
'---------------------------------------------------------------------------------
For Each h In ActiveSheet.Hyperlink
'If h.Type = "??" Then
h.Delete
'End If
Next
End Sub

-------------------
 
Back
Top