Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1160to1164
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Hyperlinks auf Bilder auslesen

Hyperlinks auf Bilder auslesen
Uwe
Hallo,
folgendes Problem: durch Kopieren einer HTML Seite (genauer gesagt, eines
table Abschnittes) in Excel, ist eine Liste mit Bildern entstanden, die mit einem
Hyperlink verknüpft sind. Nun benötige ich die Hyperlinks als Text.
Grüße
U.Wagner

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
Bilder-Hyperlinks anzeigen
22.06.2010 12:02:21
NoNet
Hallo Uwe,
hier ein Makro, das die Adresse des Bildes in Spalte J, den Bildnamen in Spalte K und den Hyperlink des Bildes in Spalte L ausgibt :
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
Gruß, NoNet
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige