Sadržaj
Izbrišite sve hiperveze s lista
Sljedeći kôd briše sve hiperveze s Sheet1:
| 12345 | Sub DeleteHyperLinks ()List1.Hiperveze.BrisatiKraj podm |
A ako vam ne treba pomoćna rutina za višekratnu uporabu, već jednokratno rješenje, upotrijebite prozor Neposredni:
1. Odaberite list s kojeg želite ukloniti hiperveze
2. Pritisnite Alt+F11 za otvaranje VBE -a
3. Na glavnom izborniku VBE odaberite Pogled-> Neposredni prozor
4. U neposredni prozor zalijepite sljedeći kôd, a zatim pritisnite Enter
| 1 | ActiveSheet.Hyperlinks.Delete |
