Obrázky v Excel 2003 dotaz a Windows mobile 6.1

[mike007]

Ve sloupci C žádné hyperlinky nejsou. Vidím pouze prázdné buňky po obrázcích.

Pro smazání hyperlinků z textu ve sloupci D použij toto makro:

Sub smazat_hypelinky()
Range("D5:D3282").Hyperlinks.Delete
End Sub

[sutrserpa]

Jsou přímo v obrázcích například jsem našel - Kuřička lepkavá,
Můžeš si vložit odkaz do prvního obrázku a vyzkoušet si to. Vidět nejsou, jen se změní kurzor.

Mazání odkazů ve sloupci D je skvělé, dík.

[mike007]

V jakých obrázcích? Však si je smazal, nebo ne?

Tak tady:

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

[sutrserpa]

Je to trochu komplikované.
Dokument Herbář je vytvořený pro aplikaci v PC a na internetu s obrázky.
Ten samý dokument je určený pro PDA je bez obrázků. to se ti podařilo
Pro umístění na Internetu jej potřebuji bez hypetextových odkazů ve sloupci D, to se ti taky podařilo
A pro PC jej potřebuji s obrázky, které nemají Hypertextový odkaz na internetové stránky, protože všichni internet nemají a taky to otravuje, když na to člověk náhodně klikne.
Ale asi tě už využívám moc dlouho a tak se omlouvám.
Makro na odkazy funguje tak ti ještě jednou děkuji.
Ahoj

[mike007]

Makro, viz můj poslední příspěvek ti hyperlinky z obrázků vymaže, takže též vyřešeno.
Nemáš zač.