Tuesday, July 17, 2007

Menghilangkan fungsi Hyperlink

Hyperlink berguna sebagai penghubung langsung untuk membuka link pada alamat website tertentu. Beberapa dokumen menggunakan hyperlink untuk mempermudah pembacanya, sehingga tidak diperlukan membuka browser secara terpisah. Namun, jika Anda ingin mengubah hyperlink tersebut agar menjadi tidak aktif, sehingga menjadi tulisan biasa, Anda dapat melakukannya dengan menggunakan makro.

Seperti biasanya buka Visual Basic Editor dan salin list makro seperti yang tertera di dalam boks atau CHIP CD edisi 12/2002 kali ini di dalam modul baru. Lakukan proses kompilasi dan simpan list tersebut. Jika sudah, buatlah shorcut untuk mempermudah pengoperasiannya. Cara membuat shortcut-nya adalah dengan membuka "Customize" dari menu "Tools". Di bagian Categories pilih Macros dan lakukan drag and drop "Custom Button" ke dalam toolbar di atas. Klik kanan toolbar baru tersebut, tujukan pada bagian "Assign Macro" dan klik pada pilihan "DeleteHyper". Klik OK. Dengan klik kanan tersebut Anda juga dapat mengubah logo atau tulisan yang akan dimunculkan di dalam toolbar. Jika sudah tutup menu customize tersebut. Sekarang silakan Anda coba.

'untuk menghilangkan hyperlinks yang ada disatu sheet
Sub DeleteAllHyper()

ActiveSheet.Hyperlinks.Delete

End Sub

''untuk menghilangkan hyperlinks yang ada diselection
Sub Deletehl()

Selection.Hyperlinks.Delete

End Sub

No comments: