Wie extrahiere ich Hyperlinks aus mehreren Bildern in Excel?
Angenommen, Sie haben eine Liste von Bildern in einem Arbeitsblatt und jedes Bild enthält einen Hyperlink. Jetzt möchten Sie die tatsächlichen Hyperlink-Adressen aus diesen Bildern in die nächsten Zellen extrahieren, wie im folgenden Screenshot gezeigt. Natürlich können Sie die Hyperlink-Adresse aus dem kopieren Hyperlink bearbeiten Box eins nach dem anderen, dies ist jedoch zeitaufwändig, wenn mehrere Hyperlinks extrahiert werden müssen. In diesem Artikel werde ich einige Methoden vorstellen, um diese Aufgabe schnell und einfach in Excel zu lösen.
Extrahieren Sie Hyperlinks aus mehreren Bildern mit VBA-Code
Extrahieren Sie Hyperlinks aus mehreren Bildern mit VBA-Code
Der folgende VBA-Code kann Ihnen helfen, die realen Adressen aus den mehreren Bildern mit Hyperlink gleichzeitig zu extrahieren. Führen Sie dies bitte Schritt für Schritt aus:
1. Halten Sie die Taste gedrückt ALT + F11 Tasten in Excel, um die zu öffnen Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Extrahieren Sie echte Adressen aus mehreren Bildern mit 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. Dann drücken F5 Schlüssel zum Ausführen dieses Codes, und alle Hyperlink-Adressen wurden in die entsprechenden Zellen neben den Bildern extrahiert, siehe Screenshot:
Note: Dieser Code extrahiert echte Adressen aus allen Bildern im aktuellen Arbeitsblatt.
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!