Gitternetz via Tastenkombination ausschalten

[Sturmkind]

Hallo,

ich habe mit Calc eine Tabelle erstellt und mit Farben und Rahmen auch entsprechend gestaltet. Nun sind im fertigen Dokument die Gitternetzlinien, so viel sie auch beim Erstellen des selben helfen im Weg. Klar will ich sie nicht immer ausschalten und so stellt sich die Frage ob es eine Tastenkombination gibt die das Gitternetz ein und ausschaltet.

Grüße
Sturmkind

[komma4]

das ist nicht eingebaut... kopiere den folgenden Code in ein Modul Deiner "Standard"-Bibliothek, und weise es dann einer Tastenkombination zu:

Code: Alles auswählen

Sub calc_toggleGridLines

' Kontroller
oCtrl = ThisComponent.getCurrentController()

' test
' Objekt? 
if IsMissing( oCtrl ) then
msgbox "kein Calc-Dokument?"
exit sub
end if

' get status
Dim bStatusGridLines as Boolean
bShowGridLines = oCtrl.getPropertyValue( "ShowGrid" )

' test
' Objekt?
if IsMissing( bShowGridLines ) then
msgbox "kein Calc-Dokument?"
exit sub
end if

' Status umschalten
' toggle status
' bool'sche Variable ist TRUE wenn sichtbar, umsetzen
if bShowGridLines then
oCtrl.setPropertyValue( "ShowGrid",FALSE )
else
' bool'sche Variable ist FALSE wenn sichtbar, umsetzen
oCtrl.setPropertyValue( "ShowGrid",TRUE )
end if
End Sub

Viel Erfolg!

[turtle47]

Hallo Zusammen,

ich hätte es etwas kürzer.

Code: Alles auswählen

Sub Gitterlinien_An_Aus
If ThisComponent.SupportsService( "com.sun.star.sheet.SpreadsheetDocument" ) Then
ThisComponent.CurrentController.ShowGrid = NOT ThisComponent.CurrentController.ShowGrid
End If
End Sub

Wie man Makros intsalliert findest Du hier:
http://www.ooowiki.de/MakrosInstallieren

Wie man die Tastatur daraufhin anpasst findest Du hier:
http://www.ooowiki.de/TastaturAnpassen

Jürgen

[Sturmkind]

Super! Danke für die Schnelle Antworten Winfried und Jürgen!

Werde mich heute Abend wenn ich ein wenig mehr Zeit habe genauer damit befassen.

Wünsche Euch noch einen schönen Sonntag

Grüße
Sascha