Seite 1 von 1
Gitternetz via Tastenkombination ausschalten
Verfasst: So, 24.06.2007 05:27
von 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
Re: Gitternetz via Tastenkombination ausschalten
Verfasst: So, 24.06.2007 11:47
von 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!
Re: Gitternetz via Tastenkombination ausschalten
Verfasst: So, 24.06.2007 12:12
von 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
Re: Gitternetz via Tastenkombination ausschalten
Verfasst: So, 24.06.2007 13:16
von 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