Gå til hovedindhold

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.

doc udpakke hyperlinks fra billeder 1

Uddrag hyperlinks fra flere billeder med VBA-kode


pil blå højre boble 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:

doc udpakke hyperlinks fra billeder 1

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

Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

kte-fane 201905


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
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