Hyperlink aus Bild auslesen
14.09.2021 16:30:24
P4n0s
Erstmal danke dass es dieses Forum überhaupt gibt!
Ich habe aus einem älteren Beitrag vom Nutzer NoNet (vielen Dank an der Stelle)
Folgende Programmierung gesehen.
Sub BilderHyperlinksAnzeigen()
Dim lngT As Long, objBild As Shape, hyp As Hyperlink
On Error Resume Next
For Each objBild In ActiveSheet.Shapes
Set hyp = Nothing
Set hyp = objBild.Hyperlink
If Not hyp Is Nothing Then
lngT = lngT + 1
'Adresse der linken oberen Ecke des Bildes in Spalte J anzeigen :
Cells(lngT, 10) = objBild.TopLeftCell.Address
'Bildname in Spalte K anzeigen :
Cells(lngT, 11) = objBild.Name
'Hyperlink des Bildes in Spalte L anzeigen :
Cells(lngT, 12) = objBild.Hyperlink.Address
End If
Next
End Sub
Könnte man das Makro so umschreiben dass das Makro nur den hyperlink in die Zelle einfügt wo sich auch das Bild befindet? Das wäre für mich sehr hilfreich!
Vielen Dank für die Hilfe vorab!!
Viele Grüße
P4n0s
