Come estrarre gli URL dalle immagini che hanno collegamenti ipertestuali

Un modo per utilizzare i dati da Internet in un foglio di lavoro di Excel consiste nel copiarli da una pagina Web e quindi incollarli nel foglio di lavoro. Ad esempio, puoi selezionare una tabella di dati su una pagina Web, premere Ctrl+C per copiarla negli Appunti, selezionare una cella in Excel, quindi premere Ctrl+V. Excel fa del suo meglio per analizzare i dati e inserirli nelle celle corrette, proprio come nella tabella originale.

Il problema è che spesso otterrai qualcosa di più dei semplici dati della tabella. Se nei dati copiati dal Web erano presenti altri oggetti, anche questi oggetti verranno incollati nel foglio di lavoro. Non è raro ritrovarsi con vari elementi grafici nel foglio di lavoro. Se questi elementi grafici erano originariamente collegamenti ipertestuali, potresti voler effettivamente estrarre il collegamento ipertestuale e quindi eliminare l’elemento grafico. Ciò renderebbe i dati nel foglio di lavoro molto più utilizzabili.

Il modo migliore per farlo è con una macro. Dopo aver incollato le informazioni Web nel foglio di lavoro, esegui la macro seguente.

Questo contenuto è riservato agli abbonati

Solo gli utenti con Abbonamento VBA Coder oppure Ultimate possono visionarlo.

Se sei già abbonato Accedi per sbloccare il contenuto!

In caso contrario abbonati qui! L'abbonamento è conveniente.

E puoi interromperlo in ogni momento e in completa autonomia.

ABBONATI

(puoi renderti conto di quanti siano i contenuti riservati

raggiungendo questa pagina)

 

Questa macro scorre ciascuna delle forme nel foglio di lavoro. Quindi controlla se alla forma è associato un collegamento ipertestuale. In tal caso, l’indirizzo del collegamento ipertestuale (nella variabile sTemp) viene inserito nella cella nell’angolo superiore sinistro in cui si trova la forma. La macro elimina tutte le forme che contengono collegamenti ipertestuali; puoi forzarla ad eliminare tutte le forme nel foglio di lavoro semplicemente spostando la riga shp.Delete all’esterno della struttura If … End If.

 

 

 

Tags: , , , , , , , , , , , , ,

Ti è stato utile?