Hur extraherar man länkar från flera bilder i Excel?

Låt oss säga, du har en lista med bilder i ett kalkylblad, och varje bild innehåller en hyperlänk, nu vill du extrahera de riktiga hyperlänkadresserna från dessa bilder till deras nästa celler enligt följande skärmdump. Naturligtvis kan du kopiera hyperlänkadressen från Redigera hyperlänk ruta en efter en, men detta kommer att vara tidskrävande om det behövs extra hyperlänkar. I den här artikeln kommer jag att introducera några metoder för att lösa denna uppgift snabbt och enkelt i Excel.

Extrahera hyperlänkar från flera bilder med VBA-kod

Extrahera hyperlänkar från flera bilder med VBA-kod

Följande VBA-kod kan hjälpa dig att extrahera riktiga adresser från flera hyperlänkade bilder på en gång, gör steg för steg:

1. Håll ner ALT + F11 tangenter i Excel för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.

VBA-kod: Extrahera riktiga adresser från flera hyperlänkade bilder

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. Tryck sedan på F5 nyckel för att köra den här koden, och alla hyperlänkadresser har extraherats till motsvarande celler bredvid bilderna, se skärmdump:

Anmärkningar: Den här koden extraherar riktiga adresser från alla bilder i det aktuella kalkylbladet.

Lås upp Excel Magic med Kutools AI

• Smart utförande: Utför celloperationer, analysera data och skapa diagram – allt drivs av enkla kommandon.
• Anpassade formler: Skapa skräddarsydda formler för att effektivisera dina arbetsflöden.
• VBA-kodning: Skriv och implementera VBA-kod utan ansträngning.
• Formeltolkning: Förstå komplexa formler med lätthet.
• Textöversättning: Bryt språkbarriärerna i dina kalkylblad.

Förbättra dina Excel-funktioner med AI-drivna verktyg. Hämta hem nu och upplev effektivitet som aldrig förr!