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 @ Saturday, February 12, 2011 9:46 AM

Print

Comments on this entry:

# BEST FRIEND...

Left by Serena at 2/17/2011 11:35 AM
Gravatar
many thanks...my best friend...

Your comment:



 (will not be displayed)


 
 
 
Please add 2 and 6 and type the answer here:
 

Live Comment Preview:

 
«May»
SunMonTueWedThuFriSat
30123456
78910111213
14151617181920
21222324252627
28293031123
45678910