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. 
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:
Excel,
Hyperlinks
posted @ sabato 12 febbraio 2011 11:46