Sistemare i collegamenti ipertestuali di Excel

L’altro giorno una amica mi ha chiesto una mano per risolvere un problema relativo ai collegamenti ipertestuali di Excel.

Spostando un file per lavorarci sopra in sicurezza e poi rimettendolo al suo posto… aveva perso tutti i collegamenti ipertestuali del documento. Essendo qualche centinaio la soluzione manuale non era perseguibile. Smile

Grazie al solito San Google (mai beatificato abbastanza) ho trovato questa piccola routine VBA che risolve il problema.

   1: Sub FixHyperlinks()
   2:     Dim OldStr As String, NewStr As String
   3:     OldStr = "vecchio collegameto"
   4:     NewStr = "nuovo collegamento"
   5:     Dim hyp As Hyperlink
   6:     For Each hyp In ActiveSheet.Hyperlinks
   7:          hyp.Address = Replace(hyp.Address, OldStr, NewStr)
   8:     Next hyp
   9: End Sub

Maggiori dettagli e molti altri script VBA per la gestione dei collegamenti ipertestuali li trovate qui.

Technorati Tags: ,

posted @ sabato 12 febbraio 2011 9.46

Print

Comments on this entry:

# BEST FRIEND...

Left by Serena at 17/02/2011 11.35
Gravatar
many thanks...my best friend...

Your comment:



 (will not be displayed)


 
 
 
Please add 1 and 4 and type the answer here:
 

Live Comment Preview:

 
«novembre»
domlunmarmergiovensab
2627282930311
2345678
9101112131415
16171819202122
23242526272829
30123456