Estrazione di URL da immagini con collegamento ipertestuale (Microsoft Excel)
Un modo per utilizzare i dati da Internet in un foglio di lavoro Excel consiste nel copiarli da una pagina Web e quindi incollarli nel foglio di lavoro. Ad esempio, è possibile selezionare una tabella di dati su una pagina Web, premere Ctrl + C per copiarla negli Appunti, selezionare una cella in Excel e quindi premere Ctrl + V. Excel fa del suo meglio per analizzare i dati e inserirli nelle celle appropriate, proprio come nella tabella originale.
Il problema è che spesso otterrai qualcosa di più dei semplici dati della tabella. Se c’erano altri oggetti nei dati che hai copiato dal Web, anche quegli oggetti verranno incollati nel foglio di lavoro. Non è raro ritrovarsi con ogni sorta di piccola grafica nel foglio di lavoro. Se questi elementi grafici erano originariamente collegamenti ipertestuali, potresti voler estrarre effettivamente il collegamento ipertestuale e quindi eliminare l’elemento grafico. Ciò renderebbe i dati nel foglio di lavoro molto più utilizzabili.
Il modo per farlo è con una macro. Dopo aver incollato le informazioni Web nel foglio di lavoro, eseguire la seguente macro.
Sub ConvertHLShapes() Dim shp As Shape Dim sTemp As String For Each shp In ActiveSheet.Shapes sTemp = "" On Error Resume Next 'go to next shape if no hyperlink sTemp = shp.Hyperlink.Address On Error GoTo 0 If sTemp <> "" Then shp.TopLeftCell.Value = sTemp shp.Delete End If Next End Sub
Questa macro passa attraverso ciascuna delle forme nel foglio di lavoro. Quindi verifica se la forma ha un collegamento ipertestuale associato. In caso affermativo, l’indirizzo di quel collegamento ipertestuale (nella variabile sTemp) viene inserito nella cella nell’angolo in alto a sinistra di dove si trova la forma. La macro elimina tutte le forme che hanno collegamenti ipertestuali; puoi forzare l’eliminazione di tutte le forme nel foglio di lavoro semplicemente spostando la riga shp.Delete all’esterno della struttura If … End If.
_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 (3578) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 ed Excel in Office 365. Puoi trovare una versione di questo suggerimento per l’interfaccia del menu precedente di Excel qui: