DRAW: Daten aus Tabelle nutzen

[poidokan]

Hallo,

ich habe ein Tabellen-Dokument mit Farbwerten. Und ich habe ein Draw-Dokument, in dem ich mit einem Makro einigen Objekten die Farben geben möchte, die in der Tabelle stehen.
Die Tabelle habe ich als Ole verknüpft, aber ich weis nicht, wie ich mir dem Makro an die Werte rankomme.

Vielen Dank,
Gérald



Moderation,4: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst

[poidokan]

so, ich bin dann doch noch selbst fündig geworden:

Code: Alles auswählen

Rem the next three lines get the shape in the Draw file
oDrawPages = ThisComponent.Drawpages
oD_Page = oDrawPages.getByIndex(0)
oShape = oD_Page.getByIndex(0)

Rem Now open the Calc file and read the value of cell F1 on Sheet1
FileName = "C:\Test.ods"
FileURL = convertToURL(FileName)
oCalc = StarDesktop.loadComponentFromURL(FileURL,"_blank", 0, Array())
oSheet = oCalc.Sheets.getByName("Sheet1")
oCell = oSheet.getCellrangeByName("F1")
ColorCode = oCell.Value
oCalc.Close(true)

Rem Set the fill color of the shape
oShape.FillColor = ColorCode