Hogyan lehet kinyerni a hiperhivatkozásokat az Excel több képéből?

Tegyük fel, hogy van egy munkalaphoz tartozó képek listája, és mindegyik kép tartalmaz egy hiperhivatkozást, most szeretné kivonni ezekből a képekből a valódi hiperhivatkozásokat a következő celláikba, az alábbi képernyőkép szerint. Természetesen lemásolhatja a hiperhivatkozás címét a Hiperhivatkozás szerkesztése doboz egyenként, de ez időigényes lesz, ha több hiperhivatkozást kell kibontani. Ebben a cikkben bemutatok néhány módszert a feladat gyors és egyszerű megoldására az Excel programban.

Bontsa ki a hiperhivatkozásokat több képből VBA kóddal

Bontsa ki a hiperhivatkozásokat több képből VBA kóddal

A következő VBA-kód segíthet kivonni a valós címeket a többszörösen hiperhivatkozott képekből, kérjük, tegye meg lépésről lépésre:

1. Tartsa lenyomva a ALT + F11 kulcsokat az Excel programban a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.

VBA kód: Több hiperhivatkozott képből nyerjen ki valós címeket

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és az összes hiperhivatkozási címet kibontották a képek melletti megfelelő cellákba, lásd a képernyőképet:

Megjegyzések: Ez a kód kibontja a valódi címeket az aktuális munkalap összes képéből.