OpenOffice.info

Danke, das mit dem Makro hat funktioniert.
Ist aber komisch, dass es diesen Button nicht standardmäßig gibt.

Thanx Chriz

Sub switch_Gitter 
ThisComponent.currentcontroller.ShowGrid = not ThisComponent.currentcontroller.ShowGrid
End Sub

Hallo
Erstell dir schnell einen Button und verknüpf ihn mit folgendem Makro:
[code]Sub switch_Gitter
ThisComponent.currentcontroller.ShowGrid = not ThisComponent.currentcontroller.ShowGrid
End Sub[/code]
[url=http://www.ooowiki.de/MakrosInstallieren]Kapitel 'Quellcode übernehmen'[/url]
[url]http://www.ooowiki.de/MakrosMitEinemKlick[/url]

Gruß Karo

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

Eine "fertige" Schaltfläche dafür kenne ich nicht.

Ich verwende ein Makro zum Umschalten der Gitternetz-Anzeige:
[code]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[/code]
Das habe ich einer Schaltfläche auf meiner benutzerdefinierten Symbolleiste für Calc-Dokumente hinterlegt.

Viel Spass!

Gibt es in OO3 einen Button um die Gittelinien schnell mal ein und aus zu blenden?
Über Extras Optionen Ansicht dauert das im Unterricht zu lange.

Gruß

Chriz