XL2000: Žádný příkaz nabídky vybrat všechny odkazy v listu

ID článku: 213790 - Produkty, které se vztahují k tomuto článku.
Strojově přeložený článekUPOZORNĚNÍ: TENTO ČLÁNEK BYL STROJOVĚ PŘELOŽEN
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Příznaky

Microsoft Excel 2000 má žádný příkaz nabídky, které umožňuje vybrat všechny hypertextové odkazy v rámci listu.
Zpět nahoru | Dejte nám zpětnou vazbu

Jak potíže obejít

Ukázky programů jsou společností Microsoft poskytovány pouze pro ilustraci bez žádné záruky výslovně uvedené ani předpokládané, včetně předpokládaných záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Pracovníci technické podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků uživatele.
Pokud máte zkušenosti s programováním omezený, můžete kontaktovat partnera s certifikátem Microsoft nebo služby Advisory. Na další informace těchto webech společnosti Microsoft:

Microsoft Certified Partner - https://partner.microsoft.com/global/30000104
(https://partner.microsoft.com/global/30000104)


Služba Microsoft zpravodaje - http://support.microsoft.com/gp/advisoryservice
(http://support.microsoft.com/gp/advisoryservice)


Další informace o možnostech podpory, které jsou k dispozici a o možnostech kontaktování společnosti Microsoft na následujícím webu společnosti Microsoft: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS
(http://support.microsoft.com/default.aspx?scid=fh;en-us;cntactms)
Toto chování obejít, použijte makro vyberte buněk obsahujících hypertextové odkazy.
  1. Vytvoření nového sešitu v aplikaci Microsoft Excel.
  2. V nabídce Nástroje přejděte na příkaz makro a potom klepněte na příkaz Editor jazyka.
  3. V programu Editor jazyka v nabídce Vložit klepněte na modul.
  4. Do modulu zadejte následující kód: 
    'This Sub procedure selects all cells in the worksheet that contain
'hyperlinks. You can then clear the selected cells to delete all of
'the hyperlinks.
Sub SelectAllHyperlinkCells()
    FirstCell = 1
    For Each xLink In ActiveSheet.Hyperlinks
        If FirstCell = 1 Then
            Set xRange = xLink.Range
            FirstCell = 0
        Else
            Set xRange = Application.Union(xRange, xLink.Range)
        End If
    Next xLink
    xRange.Select
End Sub
Zpět nahoru | Dejte nám zpětnou vazbu

Další informace

Další makra práce s odkazy

Microsoft Visual Basic for Applications podprogram můžete cyklicky všechny hypertextové odkazy v rámci listu a provedení určité operace na každý hypertextový odkaz. Odstranit všechny hypertextové odkazy nebo můžete jednoduše ohlásit umístění každý hypertextový odkaz.

Poznámka: některé řádky kódu, které byly upraveny s znaky pokračování řádku (_) přizpůsobit tento dokument.
  1. Vytvoření nového sešitu v aplikaci Microsoft Excel.
  2. V nabídce Nástroje přejděte na příkaz makro a potom klepněte na příkaz Editor jazyka.
  3. V programu Editor jazyka v nabídce Vložit klepněte na modul.
  4. Do modulu zadejte následující kód: 
    'This Sub procedure deletes all hyperlinks in the active worksheet.

Sub DeleteAllHyperlinks()
    For Each xLink In ActiveSheet.Hyperlinks
        xLink.Delete
    Next xLink
End Sub

'This Sub procedure displays a series of message boxes indicating
'the location of each hyperlink in the active worksheet.
Sub ReportHyperlinkLocations()
   For Each xLink In ActiveSheet.Hyperlinks
        MsgBox xLink.Range.Address
    Next xLink
End Sub

'This Sub procedure identifies each hyperlink and asks if you want
'to delete it. If you click Yes, the hyperlink is deleted.
Sub ReportAndDeleteHyperlinks()
    For Each xLink In ActiveSheet.Hyperlinks
        Response = MsgBox("Delete hyperlink in cell " & _
            xLink.Range.Address & " ?", vbYesNo)
        If Response = vbYes Then xLink.Delete
    Next xLink
End Sub
  5. V nabídce soubor klepněte na tlačítko Zavřít a návrat do aplikace Excel.
Pokud některé hypertextové odkazy vložíte do listu, můžete spouštět makra různých přejdete v nabídce Nástroje příkaz makra a klepnutím na tlačítko makra. Vyberte název makro spustit a potom klepněte na příkaz Spustit.

Makro DeleteAllHyperlinks() odstraní vlastnost hypertextový odkaz na oblast, ale text hypertextového odkazu. Ponechá za text hypertextového odkazu.
Zpět nahoru | Dejte nám zpětnou vazbu

Odkazy

Další informace o hypertextových odkazů v editoru jazyka klepněte v nabídce Nápověda pro Microsoft Visual Basic zadejte objekt hypertextového odkazu v Pomocníkovi Office nebo průvodce a klepněte na tlačítko Hledat zobrazíte příslušné téma.
Zpět nahoru | Dejte nám zpětnou vazbu

Vlastnosti

ID článku: 213790 - Poslední aktualizace: 23. listopadu 2006 - Revize: 3.5
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Excel 2000 Standard Edition
Klíčová slova: 
kbmt kbdtacode kbprb KB213790 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:213790
(http://support.microsoft.com/kb/213790/en-us/ )
Zpět nahoru | Dejte nám zpětnou vazbu

Dejte nám zpětnou vazbu

 
Zpět nahoruZpět nahoru