REmove Hyper links in excel 2000 2

[rexrivas]

How can i delete a columns worth of hyperlinks and graphics.THe problem is that each shape has its own shape name ("picture x").

I wrote a simple macro

Sub A_Hyper()
'
' A_Hyper Macro

'
ActiveSheet.Shapes("Picture 4").Select
Selection.ShapeRange.Item(1).Hyperlink.Delete
Selection.Delete
ActiveSheet.Shapes("Picture 5").Select
Selection.ShapeRange.Item(1).Hyperlink.Delete
Selection.Delete
End Sub

 

[TonyJollans]

Hi rexrivas,

Given a set of rules it should be possible, so how do you know which Shapes and/or Hyperlinks belong to your column?

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.
Excel VBA Training and more Help at [url=http://www.vbaexpress.

 

[rexrivas]

it's all in column A. THe shapes all seem to be picture, but each one has a unique name: picture 1 , picture 2 and so on.

 

[TonyJollans]

Hi rexrivas,

Sorry. What I meant was how do you know which shapes belong to column A and which to column B, etc.? And are all your hyperlinks in Shapes or are some in cells, and do all your shapes have hyperlinks? etc. Exactly what, in other words, do you want to delete and what do you want to keep?

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.
Excel VBA Training and more Help at [url=http://www.vbaexpress.

 

[rexrivas]

i want delete all shapes in column A along with their hyperlinks. column A currently contains Data, image(shape) and hyperlink. Alli need is the data

 

[KenWright]

Are the pictures you refere to the ONLY objects on that sheet? If so then how about a simple Edit / Go To / Special / Objects, then hit the delete button. If you have other objects though you really don't want to go this route

As for the links, try selecting them all at once and running this:-

Sub DelLinks
On Error Resume Next
selection.hyperlinks.delete
End Sub

Regards
Ken............

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission

----------------------------------------------------------------------------

 

[rexrivas]

The Edit / Go To / Special / Objects work perfectly, it evens eliminates the links


Thanks a gazillion

 

[KenWright]

Aaahhhhh - The links were links to the images then - apologies for being dense as I hadn't picked up on that bit. I guess if you remove the link target then you remove the link.

Regards
Ken.............

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission

----------------------------------------------------------------------------