OpenOffice.info

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

Tja,
meistens sitzt das Problem ja vor dem Rechner :D
Ich habe in der oben verlinkten Datei nichts weiter getan, als das Makro [color=#0040FF][b]Change_Color[/b][/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

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

Versuch mal dies:
[code]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[/code]
R

Hi,
wie wäre es mit der [url=http://de.openoffice.info/viewtopic.php?t=61441#p229938]Nutzung des Kontextmenüs[/url]?
Es gibt dort eine Beispieldatei.
Gruß R

Moin,
[quote="Justinian"]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.[/quote]Das ist genau richtig so. Der Mouseclickhandler muss und darf exakt 1 x gestartet werden. Ordne das Makro [color=#0040FF][b]sStartXMouseClickHandler[/b][/color] bei geöffneter Datei über [color=#0040FF][b]Extras/Anpassen .../Reiter Ereignisse[/b][/color] z.B. [color=#0040FF][b]Ansicht wurde erzeugt[/b][/color] zu. Kann sein das [color=#0040FF][b]Anpassen...[/b][/color] beim MAC nicht unter Extras liegt, ich glaube da heißt das Menü anders.
Gruß R

if oCell.String = "" Then

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

Ändere die Codezeile:

[code]if oCell.String = "" Then[/code]

in:

[code]if oCell.String = "" OR iCol <> 0 Then[/code]


Gruß
Stephan