Hüperlinkide kustutamine - VBA koodinäited

Lang L: none (table-of-contents)

Kustutage lehelt kõik hüperlingid

Järgmine kood kustutab lehelt 1 kõik hüperlingid:

12345 Sub DeleteHyperLinks ()Leht 1. Hüperlingid. KustutaEnd Sub

Ja kui te ei vaja korduvkasutatavat alamrutiini, vaid ühekordset parandust, kasutage vahetu akent:

1. Valige leht, millelt hüperlingid eemaldada

2. VBE avamiseks vajutage klahvikombinatsiooni Alt+F11

3. Valige VBE peamenüüst Vaade-> Kohene aken

4. Kleepige vahetu aknas järgmine kood ja vajutage sisestusklahvi

1 ActiveSheet.Hüperlingid.Delete

wave wave wave wave wave