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.
Bedste kontorproduktivitetsværktøjer
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...
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!
