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 vengono 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 (2907) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui: