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