Libre:009 ブックを拡大表示する

ブックの拡大は、画面右下のスライダーで変更可能です。

これをコードで変更したい場合は、以下のコードで可能

です。

 

sub ksZoom

Dim controller As Object
Dim doc as object

doc = ThisComponent
controller = doc.getCurrentController()
controller.ZoomType = 3
controller.ZoomValue = 175

end sub

Excelの場合、Variant型で柔軟性があります。

少し複雑ですが、初心者には使いやすいでしょうかね。

Libreの場合、ZoomTypeとZoomValue ともにShort型です。単純です。

 

 

ZoomTypeは以下のとおりです。

 

OPTIMAL = 0  

The page content width (excluding margins) at the current selection is fit into the view.

 

PAGE_WIDTH = 1

The page width at the current selection is fit into the view.  

 

ENTIRE_PAGEA = 2

complete page of the document is fit into the view.

 

BY_VALUE = 3

The zoom is relative and is to be set via the property ViewSettings::ZoomValue.

 

PAGE_WIDTH_EXACT = 4

The page width at the current selection is fit into the view,

with zhe view ends exactly at the end of the page.  

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA