Füll-Farbe eines Buttons per Makro änderen - ERLEDIGT -

[good_mike]

Hallo,

ich bin gerade von Excel und Co. auf OpenOffice umgestiegen.

Ich starte ein Macro mit einem Button auf einer Calc-Tabelle.

Ich möchte nun das die Füllfarbe des Buttons sich ändert, solange das Macro läuft.
Also am Anfang Farbe ändern und am Ende wieder zurück ändern.

Das gesamte Makro stammt noch aus der Excel-Zeit und läuft bis auf einige kleiner Ungereimtheiten ganz gut.

Vielen dank für Euere Hilfe

good_mike (absoluter OO Neuling)

[ykcim]

Hallo,

einfach Button aufrufen und Backgroundcolor ändern.

Code: Alles auswählen

  odoc=thisComponent
  oSheet=odoc.sheets(0)
  odraw1=oSheet.drawpage
  form1=odraw1.forms.getbyIndex(0)
  oContr=form1.getbyname("PushButton")
  oContr.BackgroundColor=&H00CC00 
'oder
  oContr.BackgroundColor=RGB (255,0,0) 
'oder
  oContr.BackgroundColor=16711680

Farbwert als Longint, Hex oder RGB.

mfg
Michael


PS: Kleines Tool zum Umrechnen der Farbwerte: http://www.dannenhoefer.de/down/farben.odt

[good_mike]

Hallo,

Danke für die Antwort, aber es funktioniert noch nicht - siehe .jpg Dateianhang

Noch eine ergänzende Erklärung: Ich habe in Calc ein Rechteck gezeichnet und über Makro zuweisen diesem Rechteck das Makro "Textimport" zugewiesen. Dem Rechteck habe ich den Namen "Button_1" gegeben. Nun möchte ich die Füllfarbe dieser Rechteck's änderen.

Vielen Dank für Euere Hilfe....

Michael (good_mike)

[keksi1970]

hi,

warum nimmst du nicht einen richtigen "Button" ?

Ansicht > Symbolleisten > Formular-Steuerelemente > Entwurfsmodus (dat is dat mit dem Dreieck) > Button

weise diesem das Makro zu

LG
Andreas

[good_mike]

FUNKTIONIERT!!!!

Vielen Dank.

Grüsse

Michael (good_mike)

[ykcim]

Hallo,

Danke für die Antwort, aber es funktioniert noch nicht - siehe .jpg Dateianhang

Noch eine ergänzende Erklärung: Ich habe in Calc ein Rechteck gezeichnet und über Makro zuweisen diesem Rechteck das Makro "Textimport" zugewiesen. Dem Rechteck habe ich den Namen "Button_1" gegeben. Nun möchte ich die Füllfarbe dieser Rechteck's änderen.

Vielen Dank für Euere Hilfe....

Michael (good_mike)

Naja auf die Idee ein Rechteck zu verwenden und von Button zu schreiben bin ich nicht kommen.

mfg
Michael

[good_mike]

Sorry für meine doooooofe Beschreibung.......
Werde mich besser
Viele Grüße

Michael