Modifica di un numero enorme di collegamenti ipertestuali (Microsoft Excel)
Wendy ha un singolo foglio di lavoro Excel che contiene oltre 1.200 collegamenti ipertestuali a file TIFF. (Questi sono collegamenti ipertestuali, non collegamenti normali.) Excel ha avuto un singhiozzo e ha dovuto chiudersi, quindi Emily ha utilizzato i file salvati automaticamente per recuperare il file salvato in precedenza. Ora tutti i collegamenti ipertestuali precedentemente funzionanti non funzionano. Aveva i collegamenti ipertestuali alle immagini su un’unità di rete condivisa, ma il salvataggio automatico ha modificato i collegamenti ipertestuali per fare riferimento all’unità C :. Si chiede se esiste un modo semplice per ripristinarli sull’unità di rete condivisa.
A prima vista potrebbe sembrare che tu possa utilizzare la normale funzione Trova e sostituisci di Excel per trovare la designazione del disco rigido (come in file: // c 🙂 e sostituirla con un’unità di rete (come in file: // shareddrive). Il problema è che questo approccio risolve solo una parte del problema: cambia solo la parte visualizzata del collegamento ipertestuale, non il collegamento ipertestuale sottostante stesso. L’unico modo per accedere al collegamento ipertestuale stesso è tramite l’uso di una macro.
Supponendo che tutti i collegamenti ipertestuali che devono essere modificati siano sullo stesso foglio di lavoro, è possibile utilizzare la seguente macro:
Sub FixHyperlinks() Dim h As Hyperlink Dim sOld As String Dim sNew As String sOld = "c:\" sNew = "S:\Network\" For Each h In ActiveSheet.Hyperlinks h.Address = Replace(h.Address, sOld, sNew) Next h End Sub
Tutto quello che devi fare è modificare i valori assegnati alle variabili sOld e sNew.
_Nota: _
Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.
ExcelTips è la tua fonte di formazione economica su Microsoft Excel.
Questo suggerimento (8624) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 ed Excel in Office 365. Puoi trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Excel qui: