PC-HELP.CZ

Zdravím Mike 007

Před nedávnem jsi vyřešil mazání hypertextových odkazů z obrázků.

Sub smazat_odkazy_obrazky()
Dim GetShape As Shape
For Each GetShape In ActiveSheet.Shapes
mazeme (GetShape.Name)
Next
End Sub
Function mazeme(WhatShape As String)
On Error Resume Next
ActiveSheet.Shapes(WhatShape).Hyperlink.Delete
End Function

Jsou ale odkazy, s kterými to nehne:
http://www.kuleuven-kortrijk.be/bioweb/ ... 20thaliana

Při označení kurzorem se objevuje u těchto obrázků komentář - javascript:Enlarge(),

Ve Wordu tebou vytvořené jiné makro odkaz smaže,

Sub smazat_odkazy_obrazky()
Dim i As Integer
For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
ActiveDocument.Hyperlinks(i).Delete
Next i
End Sub

ale po překopírování do Excelu se odkaz znovu do obrázku vrátí.

A tak tě prosím o úpravu prvního, případně i druhého makra

Dík, Sutrserpa