Cum se extrag hyperlink-uri din mai multe imagini în Excel?

Să presupunem că aveți o listă de imagini într-o foaie de lucru și fiecare imagine conține un hyperlink, acum doriți să extrageți adresele reale de hyperlink din aceste imagini în celulele următoare, după cum se arată în următoarea captură de ecran. Desigur, puteți copia adresa hyperlinkului din Editați hyperlinkul caseta una câte una, dar acest lucru va consuma mult timp dacă sunt necesare mai multe hyperlinkuri pentru a fi extrase. În acest articol, voi introduce câteva metode pentru a rezolva această sarcină rapid și ușor în Excel.

Extrageți hyperlinkuri din mai multe imagini cu cod VBA

Extrageți hyperlinkuri din mai multe imagini cu cod VBA

Următorul cod VBA vă poate ajuta să extrageți simultan adresele reale din mai multe imagini hyperlinkate, vă rugăm să faceți pas cu pas:

1. Țineți apăsat butonul ALT + F11 tastele din Excel pentru a deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în fereastra modulului.

Cod VBA: extrageți adrese reale din mai multe imagini cu hyperlink

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. Apoi apăsați F5 tasta pentru a rula acest cod și toate adresele de hyperlink au fost extrase în celulele corespunzătoare de lângă imagini, a se vedea captura de ecran:

notițe: Acest cod va extrage adrese reale din toate imaginile din foaia de lucru curentă.

Deblochează Magia Excel cu Kutools AI

• Execuție inteligentă: Efectuați operații cu celule, analizați date și creați diagrame, toate conduse de comenzi simple.
• Formule personalizate: generați formule personalizate pentru a vă simplifica fluxurile de lucru.
• Codare VBA: Scrieți și implementați codul VBA fără efort.
• Interpretarea formulei: Înțelegeți cu ușurință formulele complexe.
• Traducere text: spargeți barierele lingvistice din foile de calcul.

Îmbunătățiți-vă capabilitățile Excel cu instrumente bazate pe inteligență artificială. Descarcă acum și experimentați eficiența ca niciodată!