OpenOffice.info

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

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

[code]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[/code]

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



[color=#800000]Moderation,4[/color]: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst