Top > OOobbs2 > 36

OOobbs2/36 Edit

  • サマリ: ズームの状態の取得
  • 環境: Writer
  • 状態: 解決
  • 投稿者: ike@九州?
  • 投稿日: 2007-04-20 (金) 15:19:34

質問 Edit

こんにちは、いつも勉強させて頂いてます。 ズームでページ全体設定についてはマクロの記録から理解できたのですが、逆に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

回答 Edit

  • ズーム値の値の取得と設定は次のように 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

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

感想,コメント,メモ Edit



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