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

Překlady článku Překlady článku
ID článku: 213790 - Produkty, které se vztahují k tomuto článku.
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
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.

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

Služba Microsoft zpravodaje - 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;CNTACTMSToto 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
    					

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.

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.

Vlastnosti

ID článku: 213790 - Poslední aktualizace: 11. února 2014 - Revize: 3.5
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Excel 2000 Standard Edition
Klíčová slova: 
kbnosurvey kbarchive 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

Dejte nám zpětnou vazbu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com