Usuń hiperłącza - przykłady kodu VBA

Usuń wszystkie hiperłącza z arkusza

Poniższy kod usuwa wszystkie hiperłącza z arkusza Sheet1:

12345 Sub Usuń hiperłącza()Arkusz1.Hiperłącza.UsuńNapis końcowy

A jeśli nie potrzebujesz procedury Sub wielokrotnego użytku, a raczej jednorazowej naprawy, użyj okna bezpośredniego:

1. Wybierz arkusz, z którego chcesz usunąć hiperłącza

2. Naciśnij Alt + F11, aby otworzyć VBE

3. W menu głównym VBE wybierz Widok->Okno bezpośrednie

4. W oknie bezpośrednim wklej następujący kod, a następnie naciśnij Enter

1 ActiveSheet.Hiperłącza.Usuń

wave wave wave wave wave