OpenOffice.info

Verfasst: **So, 06.11.2011 23:18**

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

Verfasst: **Di, 08.11.2011 20:15**

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

OpenOffice.info

DRAW: Daten aus Tabelle nutzen

DRAW: Daten aus Tabelle nutzen

Re: Daten aus Tabelle in einem Makro mit draw benutzen