Re: Dateiname einer Grafik aus Zelle automatisch in Tabelle anzeigen
Verfasst: Mi, 11.01.2017 15:25
zeichne ein Grafik-Steuerelement auf das TabellenBlatt und ordene folgendes Makro dem Tabellenereignis "Inhalt geändert" zu:
Dabei ist "C:\meinpfad\" der Ordner in Welchem die Bilder liegen und "Formular" der Name des Formulars des Grafik-Steuerelements.
Gruß
Stephan
Code: Alles auswählen
sub Main
pfad = "C:\meinpfad\"
tc = ThisComponent.Sheets().getByName("Tabelle1")
adresse = ConvertToURL(pfad & tc.getCellrangeByName("A1").String)
tc.Drawpage.Forms.getByName("Formular").getByIndex(0).ImageURL = adresse
end Sub
Gruß
Stephan