"shourtcut libeoffice zoom in out" Code Answer's
You're definitely familiar with the best coding language Whatever that developers use to develop their projects and they get all their queries like "shourtcut libeoffice zoom in out" answered properly. Developers are finding an appropriate answer about shourtcut libeoffice zoom in out related to the Whatever coding language. By visiting this online portal developers get answers concerning Whatever codes question like shourtcut libeoffice zoom in out. Enter your desired code related query in the search bar and get every piece of information about Whatever code related question on shourtcut libeoffice zoom in out.
shourtcut libeoffice zoom in out
Sub ZoomIn
Dim doc As Object
Dim new_zoom_value As Integer
Dim dispatcher As Object
doc = ThisComponent.CurrentController.Frame
new_zoom_value = ThisComponent.CurrentController.viewSettings.ZoomValue + 5
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Zoom.Value"
args1(0).Value = new_zoom_value
args1(1).Name = "Zoom.ValueSet"
args1(1).Value = 28703
args1(2).Name = "Zoom.Type"
args1(2).Value = 0
dispatcher.executeDispatch(doc, ".uno:Zoom", "", 0, args1())
End Sub
Sub ZoomOut
Dim doc As Object
Dim new_zoom_value As Integer
Dim dispatcher As Object
doc = ThisComponent.CurrentController.Frame
new_zoom_value = ThisComponent.CurrentController.viewSettings.ZoomValue - 5
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Zoom.Value"
args1(0).Value = new_zoom_value
args1(1).Name = "Zoom.ValueSet"
args1(1).Value = 28703
args1(2).Name = "Zoom.Type"
args1(2).Value = 0
dispatcher.executeDispatch(doc, ".uno:Zoom", "", 0, args1())
End Sub
Source: ask.libreoffice.org
All those coders who are working on the Whatever based application and are stuck on shourtcut libeoffice zoom in out can get a collection of related answers to their query. Programmers need to enter their query on shourtcut libeoffice zoom in out related to Whatever code and they'll get their ambiguities clear immediately. On our webpage, there are tutorials about shourtcut libeoffice zoom in out for the programmers working on Whatever code while coding their module. Coders are also allowed to rectify already present answers of shourtcut libeoffice zoom in out while working on the Whatever language code. Developers can add up suggestions if they deem fit any other answer relating to "shourtcut libeoffice zoom in out". Visit this developer's friendly online web community, CodeProZone, and get your queries like shourtcut libeoffice zoom in out resolved professionally and stay updated to the latest Whatever updates.