zeichne ein Grafik-Steuerelement auf das TabellenBlatt und ordene folgendes Makro dem Tabellenereignis "Inhalt geändert" zu:
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
Dabei ist "C:\meinpfad\" der Ordner in Welchem die Bilder liegen und "Formular" der Name des Formulars des Grafik-Steuerelements.
Gruß
Stephan
zeichne ein Grafik-Steuerelement auf das TabellenBlatt und ordene folgendes Makro dem Tabellenereignis "Inhalt geändert" zu:
[code]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
[/code]
Dabei ist "C:\meinpfad\" der Ordner in Welchem die Bilder liegen und "Formular" der Name des Formulars des Grafik-Steuerelements.
Gruß
Stephan