Ugrás a tartalomra

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.

doc kivonat hiperhivatkozások képekből 1

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


nyíl kék jobb buborék 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:

doc kivonat hiperhivatkozások képekből 1

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

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Worked like a charm once I figured out how to.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations