Removing Hyperlink

[chandrashekarb]

Hi,


I am looking for a VBA code which removes object releated hyperlinks. I have nearly 200 objects in the worksheet.


Thanks in Advance.


Regards,


Chandrashekar B

 

[Hui]

Copy the following code into a code module in VBA

Execute it, F5


It will delete all Hyperlinks which are in Shapes, Pictures, Charts

But not in Cells or on the worksheet

[pre]

Sub Del_Shape_Hyperlinks()
Dim h As Hyperlink
Dim wsheet As String

wsheet = ActiveSheet.Name

For Each h In Worksheets(wsheet).Hyperlinks
If h.Type = 1 Then h.Delete 'Change to =0 to delete all Cell/Range Hyperlinks
Next
End Sub

[/pre]

 

[chandrashekarb]

Thanks a lot


Regards,


Chandra Shekar B

 

[chandrashekarb]

Hi,


Can u please explain type property and let me know where I will get help regarding this.


Regards,


Chandra Shekar B

 

[Hui]

Not much to say about Hyperlinks.Type property

It is 0 for Hyperlinks in cells

It is 1 for Hyperlinks in other objects (Shapes, Pics and Charts)

I Don't believe there are any other assigned values relevant to Excel

http://office.microsoft.com/en-gb/excel-help/HV080559500.aspx

 

[chandrashekarb]

Thank u very much


Regards,


Chandra Shekar B