Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
888to892
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
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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

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

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

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige