LibreOffice Calc Basic 表示画面の拡大、縮小をするマクロの実験

LbreOffice Calc Basic 表示画面の拡大、縮小をするマクロの実験

OS LinuxMint18Cinnamon64bit
LibreOffice5.2

Sub zoom_in
'Calcのみ　表示拡大
    '現在のzoom値
        zoom_value= ThisComponent.CurrentController.zoomValue
    'Print zoom_value
    'zoomvalueセット
         ThisComponent.CurrentController.zoomValue=zoom_value+10
 
End Sub

Sub zoom_out
'Calcのみ 表示縮小
    '現在のzoom値
        zoom_value= ThisComponent.CurrentController.zoomValue
    'Print zoomvalue
    'zoomvalueセット
         ThisComponent.CurrentController.zoomValue=zoom_value-10
 
End Sub

Sub zoom_100
'zoom値を標準にする
    'zoomvalueセット
         ThisComponent.CurrentController.zoomValue=100
End Sub