Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: bilder in zellen

bilder in zellen
28.07.2007 17:15:05
Annawald
Hallo erstmal
ich habe ein etwas kniffeliges problem und zwar:
ich habe eine tabelle wo mit hyperlinks versehene bilder in zellen liegen
nun möchte ich das bild in der zelle ansprechen und den hyperlink im "klartext" in eine anderen zelle kopieren
hier bei kann ich allerdings nicht das bild über *"Picture 9* oder so ansprechen sondern will sowas wie
ActiveSheet.Range("D4").bild.hyperlink.... machen
da die bilder nicht fortlaufend numerriert sind und mit dem rest in der zelle in der sie liegen in zusammenhang gebracht werden müssen
ich hoffe das ist halbwegs verständlich ;-)
Gruß Christian

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bilder in zellen
28.07.2007 17:23:00
ransi
HAllo Christian
Wenn du die Hyperlinks ansprichst, hast du es einfacher:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit


Public Sub test()
Dim hl As Hyperlink
For Each hl In ActiveSheet.Hyperlinks
    hl.Shape.TopLeftCell.Offset(0, 1).Value = hl.Address
Next
End Sub

ransi

Anzeige
AW: bilder in zellen
28.07.2007 17:37:00
Annawald
ich hab mal nen kleinen ausschnitt aus der datei hoch geladen um das ein wneig zu verdeutlichen
https://www.herber.de/bbs/user/44529.xls
@ransi den makro gibt mir bei
hl.Shape.TopLeftCell.Offset(0, 1).Value = hl.Address
einen laufzeitfehler 1001 oder so aus

Anzeige
AW: bilder in zellen
29.07.2007 09:51:00
ransi
HAllo
Dann versuche es mal so:
' **********************************************************************
' Modul: Tabelle2 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit


Public Sub test()
Dim hl As Hyperlink
On Error Resume Next
For Each hl In ActiveSheet.Hyperlinks
    hl.Range.Offset(0, 1) = hl.Address
    hl.Shape.TopLeftCell.Offset(0, 1).Value = hl.Address
Next
End Sub

ransi
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige