Remove hyperlink from pictures

[Deepk]

Hi All,

I want a macro that remove hyperlink from all the pictures in an excel worksheet. Please help me. Thank you.

Regards,

 

[vds1]

Select the picture and press "Ctrl + A". This will select all shapes. Keep the selection and go to VB Screen and then go to immediate window (Ctrl +G). Paste the below code and press enter

<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">Selection.Hyperlinks.Delete</code>

 

[Deepk]

Select the picture and press "Ctrl + A". This will select all shapes. Keep the selection and go to VB Screen and then go to immediate window (Ctrl +G). Paste the below code and press enter

<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">Selection.Hyperlinks.Delete</code>

Thank you for your reply. based on you input I am running the following code

Sub hyper ()
ActiveSheet.Pictures.Select
Selection.Hyperlinks.Delete
End Sub

But at Selection.Hyperlinks.Delete it is showing an Run time error 438, "Object does not support this property or method"

Please suggest. Thank you.

 

[Stiuart_W]

It appears you treat the pictures as shapes. The following code will remove all hyperlinks from SHAPES, including pictures, on the current Worksheet

Sub hyper()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        If shp.Hyperlink.Address <> "" Then shp.Hyperlink.Delete
    Next shp
End Sub

 

[Deepk]

It appears you treat the pictures as shapes. The following code will remove all hyperlinks from SHAPES, including pictures, on the current Worksheet

Sub hyper()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        If shp.Hyperlink.Address <> "" Then shp.Hyperlink.Delete
    Next shp
End Sub

Thank you Stiuart_W. Have a good day.