[[Category:OOBasicCode]]
<pre>
Sub Doczoom
   Dim Doc As Object
   Dim Settings As Object
   
   Doc=ThisComponent
   Settings=Doc.CurrentController.viewSettings
   
   With Settings
      .zoomType=3 '
      .ZoomValue=10
   End With
End Sub
</pre>