I want to zoom in by small increments using a shortcut key.
Thinking “zoom in” will work. Tools/Customize/Keyboard/Category:View/Zoom_In is assigned to Ctrl++.
However this key has no effect.
You can write macro for this task:
REM ***** BASIC *****
Option Explicit
Sub myZoomIn
Dim oDoc As Object
Dim oSettings as Object
Dim myZoomValue as integer
oDoc = ThisComponent
oSettings = oDoc.currentController.ViewSettings
'xray oSettings ' test the existing properties
oSettings.ZoomType = com.sun.star.view.DocumentZoomType.BY_VALUE
myZoomValue = oSettings.ZoomValue + 5
oSettings.ZoomValue = myZoomValue
End Sub
Sub myZoomOut
Dim oDoc As Object
Dim myZoomValue as integer
oDoc = ThisComponent
oDoc.currentController.ViewSettings.ZoomType = com.sun.star.view.DocumentZoomType.BY_VALUE
myZoomValue = oDoc.currentController.ViewSettings.ZoomValue - 5
oDoc.currentController.ViewSettings.ZoomValue = myZoomValue
End Sub
ZoomInOut.odt (11.3 KB)
1 Like
Ah. Thank you.
Zoom in is Ctrl+Shift+PageUp and zoom out is Ctrl+Shift+Pgdn
Or Ctrl+Mouse wheel
1 Like
Perfect. Thank you.
Do you know of a way to adjust the zoom increment? I’d like tiny adjustments…
The only other thing I an think of is to enable the Zoom icon in the Standard toolbar, Tools > Customise > Toolbars > Standard and down near the bottom is Zoom. You will get the Zoom dialogue and you either use Optimal Zoom (to margin width) or Custom enter the percentage in the field.
Default for LibreOffice version 7.6.
Not for 7.4 and 7.5.
3 Likes