Wie extrahiert man Hyperlinks aus mehreren Bildern in Excel?
Angenommen, Sie haben eine Liste von Bildern in einem Arbeitsblatt, und jedes Bild enthält einen Hyperlink. Nun möchten Sie die tatsächliche Hyperlink-Adresse aus diesen Bildern in die jeweils benachbarten Zellen extrahieren – wie im folgenden Screenshot gezeigt. Natürlich könnten Sie die Hyperlink-Adresse einzeln aus dem Hyperlink bearbeiten-Dialogfeld kopieren, doch das wäre bei mehreren Hyperlinks äußerst zeitaufwendig. In diesem Artikel stelle ich Ihnen einige Methoden vor, mit denen Sie diese Aufgabe schnell und einfach in Excel erledigen können.
Hyperlinks aus mehreren Bildern mithilfe von VBA-Code extrahieren
Hyperlinks aus mehreren Bildern mithilfe von VBA-Code extrahieren
Der folgende VBA-Code ermöglicht es Ihnen, die tatsächlichen Adressen gleichzeitig aus mehreren mit Hyperlinks verknüpften Bildern zu extrahieren. Gehen Sie dazu Schritt für Schritt wie folgt vor:
1. Halten Sie in Excel die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Tatsächliche Adressen aus mehreren mit Hyperlinks verknüpften Bildern extrahieren
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. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Alle Hyperlink-Adressen wurden nun in die entsprechenden Zellen neben den Bildern extrahiert. Siehe Screenshot:
Hinweis: Dieser Code extrahiert die tatsächlichen Adressen aus allen Bildern im aktuellen Arbeitsblatt.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins