Slett hyperkoblinger - VBA -kodeeksempler

Slett alle hyperkoblinger fra et ark

Følgende kode sletter alle hyperkoblingene fra Sheet1:

12345 Sub DeleteHyperLinks ()Ark1.Hyperlinks.SlettSlutt Sub

Og hvis du ikke trenger en gjenbrukbar underrutine, snarere en engangsreparasjon, kan du bruke vinduet Umiddelbart:

1. Velg arket du vil fjerne hyperkoblinger fra

2. Trykk på Alt+F11 for å åpne VBE

3. Velg på hovedmenyen i VBE Vis-> Umiddelbart vindu

4. Lim inn følgende kode i umiddelbar vindu, og trykk deretter Enter

1 ActiveSheet.Hyperlinks.Delete

wave wave wave wave wave