Zellfarbe mit Basic setzen, red(),green(), blue()
Verfasst: So, 09.10.2011 14:10
Hallo Wissende,
den nachstehenden Code habe ich mir zusammengebastelt. Ich habe Excel-Vba Kenntnisse aber Starbasic ist mir sehr fremd.
In den beiden oberen auskommentierten Codezeilen im Code benutze ich red() usw.. Ergebnis ist immer 0, egal wie ich die Zelle färbe oder deren Schrift.
Was mache ich da falsch um das zu erreichen was ich will, z.B. den RGB-Rot Wert eines Zellhintergrundes oder der Zellschrift direkt zu erhalten?
Eine grundsätzliche Frage, Excel kann gleichzeitig 56 Farben darstellen, die stehen quasi in einer farbpalette.
Mehr, andere Farben gibt es nicht. Was man machen kann ist z.B. der Farbe Nr 5 andere RGB Werte zuweisen.
Ist das bei OO Calc genauso/ähnlich? Wieviele Farben?
Wenn ich auf die Symbole für Hintergrundfarbe oder Schriftfarbe klicke zähle ich 110 Farben.
Kann ich oder wie kann ich so wie in Excel auf eine der 110 Farbnummern zugreifen/ sie einer Zelle zuweisen?
In Excel so
In Starbasic?
Hintergrund meiner Anfrage ist, ich möchte per Tastenkombination die Zellen eines grad markierten Zellbereichs
färben. Und zwar nicht über Zuweisung eines RGB Wertes, das habe ich herausgefunden, das geht über .SetCellBackcolor,
sondern durch Zuweisung der Nummer als Index aus den 110 Farbnummern.
PS: Ich sehe grad vor dem Abschicken, das kaufmännische Und wird falsch angezeigt/dargestellt. Ist das hier üblich?
Liegt es an meinem Browser?
Danke ^ Gruß
Reinhard
Moderation,4: CODE tags gesetzt
den nachstehenden Code habe ich mir zusammengebastelt. Ich habe Excel-Vba Kenntnisse aber Starbasic ist mir sehr fremd.
In den beiden oberen auskommentierten Codezeilen im Code benutze ich red() usw.. Ergebnis ist immer 0, egal wie ich die Zelle färbe oder deren Schrift.
Was mache ich da falsch um das zu erreichen was ich will, z.B. den RGB-Rot Wert eines Zellhintergrundes oder der Zellschrift direkt zu erhalten?
Eine grundsätzliche Frage, Excel kann gleichzeitig 56 Farben darstellen, die stehen quasi in einer farbpalette.
Mehr, andere Farben gibt es nicht. Was man machen kann ist z.B. der Farbe Nr 5 andere RGB Werte zuweisen.
Ist das bei OO Calc genauso/ähnlich? Wieviele Farben?
Wenn ich auf die Symbole für Hintergrundfarbe oder Schriftfarbe klicke zähle ich 110 Farben.
Kann ich oder wie kann ich so wie in Excel auf eine der 110 Farbnummern zugreifen/ sie einer Zelle zuweisen?
In Excel so
Code: Alles auswählen
Range("A1").Interior.Colorindex=34
Range("A1").Font.Colorindex=34Hintergrund meiner Anfrage ist, ich möchte per Tastenkombination die Zellen eines grad markierten Zellbereichs
färben. Und zwar nicht über Zuweisung eines RGB Wertes, das habe ich herausgefunden, das geht über .SetCellBackcolor,
sondern durch Zuweisung der Nummer als Index aus den 110 Farbnummern.
PS: Ich sehe grad vor dem Abschicken, das kaufmännische Und wird falsch angezeigt/dargestellt. Ist das hier üblich?
Liegt es an meinem Browser?
Danke ^ Gruß
Reinhard
Code: Alles auswählen
Sub Farbe
Doc = ThisComponent
mysheet = Doc.Sheets(0)
zelle=mysheet.getCellbyPosition(0,0)
'msgbox "red " & red(zelle.string) & chr(13) & "green " & green(zelle.string) & chr(13) & "blue " & blue(zelle.string)
'msgbox "red " & red(zelle.value) & chr(13) & "green " & green(zelle.value) & chr(13) & "blue " & blue(zelle.value)
FW=zelle.cellbackColor
Wert=FW
On Error Resume Next
Rot = Wert Mod 256
Wert = (Wert - Rot) / 256
Gruen = Wert Mod 256
Wert = (Wert - Gruen) / 256
Blau = Wert Mod 256
meintext= "Farbwert " &FW & chr(13) & chr(13)
meintext= meintext & "Rot " &Rot & chr(13)
meintext= meintext & "Gruen " &Gruen & chr(13)
meintext= meintext & "Blau " &Blau
msgbox meintext
'zelle.backcolor=34
''zelle.cellbackcolor=34
End SubModeration,4: CODE tags gesetzt
, jedenfalls wäre irgendwas mit meinem Beitragstext nicht in Ordnung, dann habe ich ihn, dies ignorierend abgeschickt und er wird angezeigt.
) Wodran könnte es denn gelegen haben, mal so frag