OpenOffice.info

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

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