Excel 2000: Geen menuopdracht voor alle Hyperlinks in een werk blad selecteren

Vertaalde artikelen Vertaalde artikelen
Artikel ID: 213790 - Bekijk de producten waarop dit artikel van toepassing is.
Dit artikel is gearchiveerd. Het wordt aangeboden in de huidige vorm en wordt niet meer bijgewerkt.
Alles uitklappen | Alles samenvouwen

Op deze pagina

Symptomen

Microsoft Excel 2000 heeft geen menuopdracht waarmee u Alles selecteren hyperlinks in een werk blad.

Workaround

Microsoft biedt program meer voorbeelden ter illustratie alleen, zonder garantie of impliciete, met inbegrip van maar niet beperkt tot, de impliciete garanties van verkoopbaarheid en/of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeer taal worden opgespoord en de hulp programma's en procedures voor fout opsporing. Microsoft support professionals kunnen helpen verklaren de functionaliteit van een bepaalde procedure, maar ze zal niet deze voorbeelden om extra functionaliteit of samens tellen van procedures om te voldoen aan uw specifieke behoeften aanpassen.
Als u zoveel program meer ervaring hebt, kunt u contact opnemen met een Microsoft Certified Partner of Microsoft Advisory Services. Meer informatie vindt u op deze Microsoft-websites:

Microsoft Certified Partners-https://partner.Microsoft.com/Global/30000104

Microsoft Advisory Services-http://support.Microsoft.com/gp/advisoryservice

Ga naar de volgende Microsoft-website voor meer informatie over de ondersteuningsopties die beschikbaar zijn en hoe u contact kunt opnemen met Microsoft:http://support.Microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSDit probleem omzeilen door een macro te gebruiken op alle cellen die hyperlinks bevatten.
  1. Maak een nieuwe werkmap in Microsoft Excel.
  2. Op deHulp programma'shet menuMacro, en klik vervolgens opVisual Basic-Editor.
  3. In de Visual Basic-Editor op deInvoegenmenu, klikt u opModule.
  4. Typ de volgende code in de module:
    '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
    					

Meer informatie

Andere macro's te werken met Hyperlinks

Een Microsoft Visual Basic for Applications-subroutine kunt u alle hyperlinks in een werk blad doorlopen en een bepaalde bewerking uitvoeren op elke hyperlink. Zo kunt u alle hyperlinks verwijderen of kunt u de locatie van elke hyperlink te melden.

OPMERKING: Code sommige regels zijn gewijzigd met regel voortzetting tekens (_) aan dit document.
  1. Maak een nieuwe werkmap in Microsoft Excel.
  2. Op deHulp programma'shet menuMacro, en klik vervolgens opVisual Basic-Editor.
  3. In de Visual Basic-Editor op deInvoegenmenu, klikt u opModule.
  4. Typ de volgende code in de module:
    '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. Op deBestandmenu, klikt u opSluiten en terugkeren naar Microsoft Excel.
Als u bepaalde hyperlinks in uw werk blad invoegen, kunt u uitvoeren de andere macro's door aan te wijzenMacroop deHulp programma'smenu en vervolgens te klikken opMacro's. Selecteer de naam van de macro wilt uitvoeren en klik vervolgens opUitvoeren.

De macro DeleteAllHyperlinks() Hiermee verwijdert u de eigenschap hyperlink van het bereik, maar niet de tekst van de hyperlink. Laat achter de tekst van de hyperlink.

Referenties

Klik voor meer informatie over hyperlinks in de Visual Basic EditorMicrosoft Visual Basic Helpop deHelpin het menu typeHyperlink-objectin de Office-assistent of de Antwoordwizard en klikt u vervolgens opZoekenom het onderwerp weer te geven.

Eigenschappen

Artikel ID: 213790 - Laatste beoordeling: zaterdag 2 november 2013 - Wijziging: 4.0
De informatie in dit artikel is van toepassing op:
  • Microsoft Excel 2000 Standard Edition
Trefwoorden: 
kbnosurvey kbarchive kbdtacode kbprb kbmt KB213790 KbMtnl
Automatisch vertaald artikel
BELANGRIJK: Dit artikel is vertaald door middel van automatische vertalingssoftware van Microsoft en is mogelijk nabewerkt door de Microsoft Community via CTF-technologie (Community Translation Framework) of door een menselijke vertaler. Microsoft biedt zowel automatisch vertaalde, door mensen vertaalde en door de community nabewerkte artikelen aan, zodat er in meerdere talen toegang is tot alle artikelen in onze Knowledge Base. Een vertaald of bewerkt artikel kan fouten bevatten in vocabulaire, syntaxis of grammatica.. Microsoft is niet verantwoordelijk voor eventuele onjuistheden, fouten of schade ten gevolge van een foute vertaling van de inhoud van een bericht of het gebruik van deze vertaalde berichten door onze klanten.
De Engelstalige versie van dit artikel is de volgende: 213790

Geef ons feedback

 

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