OpenOffice.info

Verfasst: **Mi, 18.11.2015 06:54**

Ändere die Codezeile:

if oCell.String = "" Then

in:

Code: Alles auswählen

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

Gruß
Stephan

Verfasst: **Sa, 12.12.2015 08:22**

Moin,

Justinian hat geschrieben: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

Verfasst: **Sa, 12.12.2015 17:57**

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

Verfasst: **Sa, 12.12.2015 21:07**

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

Verfasst: **Di, 15.12.2015 16:28**

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

Verfasst: **Mi, 16.12.2015 22:11**

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

OpenOffice.info

Hintergrundfarbe per Mausklick ändern

Re: Hintergrundfarbe per Mausklick ändern

Re: Hintergrundfarbe per Mausklick ändern

Re: Hintergrundfarbe per Mausklick ändern

Re: Hintergrundfarbe per Mausklick ändern

Re: Hintergrundfarbe per Mausklick ändern

Re: Hintergrundfarbe per Mausklick ändern