Top > OOobbs2 > 36
  • The added line is THIS COLOR.
  • The deleted line is THIS COLOR.
  • Go to OOobbs2/36.

** [[OOobbs2/36]] [#q03fd361]
-''サマリ'': ズームの状態の取得
-''環境'': Writer
-''状態'': 解決
-''投稿者'': [[ike@九州]]
-''投稿日'': 2007-04-20 (金) 15:19:34

*** 質問 [#y7f6b9ff]
こんにちは、いつも勉強させて頂いてます。
ズームでページ全体設定についてはマクロの記録から理解できたのですが、逆にZoom状態を取得するマクロが分かりません。
方法があるのでしょうか?(他に幾つも流用ができそう)

 Sub Zoom_Set
  dim document,dispatcher as object
  document   = ThisComponent.CurrentController.Frame
  dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
  dim args(2) as new com.sun.star.beans.PropertyValue
    args(0).Name = "Zoom.Value"
    args(0).Value = 0
    args(1).Name = "Zoom.ValueSet"
    args(1).Value = 28703
    args(2).Name = "Zoom.Type"
    args(2).Value = 2        'ページ全体の場合の値
  dispatcher.executeDispatch(document, ".uno:Zoom", "", 0, args())
 End sub

*** 回答 [#p755f4b9]
- ズーム値の値の取得と設定は次のように ''ZoomValue'' プロパティで両方が可能です。 

 Sub Main
 Dim oDoc As Object
 Dim oController As Object
 Dim oViewSettings As Object
   oDoc = ThisComponent
   oController = oDoc.getCurrentController()
   oViewSettings = oController.ViewSettings
   msgbox oViewSettings.ZoomValue
   oViewSettings.ZoomValue = 80
 End Sub

ViewSettings ではその他、次のような値にアクセスできます

http://api.openoffice.org/docs/common/ref/com/sun/star/text/ViewSettings.html

-- [[はにゃ?]] &new{2007-04-20 (金) 15:44:20};
- 早速の回答有難うございます。とても分かりやすいですね、今後とも宜しくお願いいたします -- [[ike@九州]] &new{2007-04-21 (土) 09:30:36};

#comment
*** 感想,コメント,メモ [#s3f7eb2f]

#comment

Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes