Hoe hyperlinks uit meerdere afbeeldingen in Excel te extraheren?
Laten we zeggen dat u een lijst met afbeeldingen in een werkblad heeft en elke afbeelding een hyperlink bevat. Nu wilt u de echte hyperlinkadressen van deze afbeeldingen naar hun volgende cellen extraheren, zoals in de volgende schermafbeelding. U kunt natuurlijk het hyperlinkadres kopiëren van het Hyperlink bewerken box een voor een, maar dit zal tijdrovend zijn als er meerdere hyperlinks moeten worden geëxtraheerd. In dit artikel zal ik enkele methoden introduceren om deze taak snel en gemakkelijk in Excel op te lossen.
Extraheer hyperlinks uit meerdere afbeeldingen met VBA-code
Extraheer hyperlinks uit meerdere afbeeldingen met VBA-code
De volgende VBA-code kan u helpen om de echte adressen uit de meerdere afbeeldingen met hyperlinks tegelijk te extraheren, doe dit stap voor stap:
1. Houd de ALT + F11 toetsen in Excel om het Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.
VBA-code: extraheer echte adressen uit meerdere afbeeldingen met hyperlinks
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. Druk vervolgens op F5 sleutel om deze code uit te voeren, en alle hyperlinkadressen zijn geëxtraheerd in overeenkomstige cellen naast de afbeeldingen, zie screenshot:
Note: Deze code haalt echte adressen uit alle afbeeldingen in het huidige werkblad.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!