CALC Rechtecke per Makro mit Farbe füllen

[tester10]

Hallo,

bisher habe ich mit vba gearbeitet. OO 3.3 "versteht" leider den VBA-Code nicht mehr. Also bleibt mir nichts anderes übrig, als Eure Hilfe in Anspruch zu nehmen. Denn meine Suche in im www hat nichts gebracht.

Problem:

In einem Tabellenblatt existieren verschiedene Rechtecke und Kreise.
Per Makro sollen diese nun mit Farbe gefüllt werden.

Das ist "eigenlich" keine große Sache, aber ich schaffe es nicht diese Elemente anzusprechen per Basic.

Vielen Dank schon im Voraus.

[F3K Total]

Hallo,
hier mal ein Code der alle Rechtecke auf Tabelle1 rot und alle Ellipsen/Kreise grün einfärbt.

Code: Alles auswählen

Sub s_einfaerben
osheet= thisComponent.sheets.getbyname("Tabelle1")
opage=osheet.drawpage
ncount=opage.count
for i=0 to ncount-1
oshape=opage(i)
if oshape.ShapeType = "com.sun.star.drawing.RectangleShape" then 
msgbox "Rechteck"
oshape.FillColor=RGB(255,0,0)'rot
endif
if oshape.ShapeType = "com.sun.star.drawing.EllipseShape" then
msgbox "Ellipse/Kreis"
oshape.FillColor=RGB(0,255,0)'grün
endif
next i
End Sub

Viel Erfolg
Gruß R