Hintergrundfarbe per Mausklick ändern

[Stephan]

Ändere die Codezeile:

Code: Alles auswählen

if oCell.String = "" Then

in:

Code: Alles auswählen

if oCell.String = "" OR iCol <> 0 Then

Gruß
Stephan

[F3K Total]

Moin,

Wenn ich dann das Makro sStartXMouseClickHandler aus besagtem Modul einmal händisch starte, läuft ab sofort beim Anklicken alles so wie es sein soll.

Das ist genau richtig so. Der Mouseclickhandler muss und darf exakt 1 x gestartet werden. Ordne das Makro sStartXMouseClickHandler bei geöffneter Datei über Extras/Anpassen .../Reiter Ereignisse z.B. Ansicht wurde erzeugt zu. Kann sein das Anpassen... beim MAC nicht unter Extras liegt, ich glaube da heißt das Menü anders.
Gruß R

[F3K Total]

Hi,
wie wäre es mit der Nutzung des Kontextmenüs?
Es gibt dort eine Beispieldatei.
Gruß R

[F3K Total]

Versuch mal dies:

Code: Alles auswählen

Sub Change_Color
    oDoc = ThisComponent
    oZell = oDoc.CurrentSelection
    if oZell.supportsService("com.sun.star.sheet.SheetCell") OR oZell.supportsService("com.sun.star.sheet.SheetCellRange")then
        If oZell.CharColor = RGB (255, 0, 0) Then
            oZell.CharColor = -1
            else
            oZell.CharColor = RGB (255, 0, 0)
        end if
    end if
end sub

R

[F3K Total]

Tja,
meistens sitzt das Problem ja vor dem Rechner
Ich habe in der oben verlinkten Datei nichts weiter getan, als das Makro Change_Color durch meinen Vorschlag ersetzt.
Anbei die Datei, getestet unter Windows 7, AOO 4.1.2 & LO 5.0.3
Du musst nix auslösen, nur die Zellen markieren.
R

[F3K Total]

Nö, denk mal selber nach, ich bin raus.
Gruß R