Come estrarre collegamenti ipertestuali da più immagini in Excel?
Diciamo che hai un elenco di immagini in un foglio di lavoro e ogni immagine contiene un collegamento ipertestuale, ora, desideri estrarre gli indirizzi del collegamento ipertestuale reale da queste immagini alle celle successive come mostrato nella seguente schermata. Ovviamente puoi copiare l'indirizzo del collegamento ipertestuale dal file Modifica collegamento ipertestuale box uno per uno, ma ciò richiederà tempo se sono necessari più collegamenti ipertestuali da estrarre. In questo articolo, introdurrò alcuni metodi per risolvere questa attività rapidamente e facilmente in Excel.
Estrai collegamenti ipertestuali da più immagini con codice VBA
Estrai collegamenti ipertestuali da più immagini con codice VBA
Il seguente codice VBA può aiutarti a estrarre gli indirizzi reali da più immagini con collegamenti ipertestuali contemporaneamente, per favore fai passo dopo passo:
1. Tieni premuto il ALT + F11 in Excel per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nella finestra del modulo.
Codice VBA: estrai indirizzi reali da più immagini con collegamenti ipertestuali
Sub ExtractHyperlinkFromPicture()
'updateby Extendoffice
Dim xSh As Shape
Dim xScreen As Boolean
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xSh In ActiveSheet.Shapes
If xSh.Type = msoPicture Then
On Error Resume Next
Range(xSh.TopLeftCell.Address).Offset(0, 3).Value = xSh.Hyperlink.Address
On Error GoTo 0
End If
Next
Application.ScreenUpdating = xScreen
End Sub
3. Quindi premere F5 chiave per eseguire questo codice e tutti gli indirizzi del collegamento ipertestuale sono stati estratti nelle celle corrispondenti accanto alle immagini, vedi screenshot:
Note:: Questo codice estrarrà gli indirizzi reali da tutte le immagini nel foglio di lavoro corrente.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
