Hvordan udpakkes hyperlinks fra flere billeder i Excel?

Lad os sige, at du har en liste over billeder i et regneark, og hvert billede indeholder et hyperlink, nu vil du gerne udtrække de rigtige hyperlinkadresser fra disse billeder til deres næste celler som vist nedenstående skærmbillede. Selvfølgelig kan du kopiere hyperlinkadressen fra Rediger hyperlink boks en efter en, men dette vil være tidskrævende, hvis der er behov for flere hyperlinks, der skal ekstraheres. I denne artikel vil jeg introducere nogle metoder til at løse denne opgave hurtigt og nemt i Excel.

Uddrag hyperlinks fra flere billeder med VBA-kode

Uddrag hyperlinks fra flere billeder med VBA-kode

Følgende VBA-kode kan hjælpe dig med at udtrække de rigtige adresser fra de flere hyperlinkede billeder på én gang. Gør trin for trin:

1. Hold nede ALT + F11 nøgler i Excel for at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA-kode: Uddrag rigtige adresser fra flere hyperlinkede billeder

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. Tryk derefter på F5 nøgle til at køre denne kode, og alle hyperlinkadresser er blevet ekstraheret til tilsvarende celler ved siden af ​​billederne, se skærmbillede:

Bemærk: Denne kode udtrækker rigtige adresser fra alle billeder i det aktuelle regneark.