create a new page, using OOobbs2/36 as a template.
Front page
Search
掲示板
Reload
Help
Browse Log
掲示板の使い方
OOo 掲示板３
OOo 掲示板２
OOo 掲示板
掲示板
雑談掲示板
New
List of pages
Recent changes
Backup
簡単ヘルプ
整形ルール
Start:
** [[OOobbs2/36]] [#q03fd361]
-''サマリ'': ズームの状態の取得
-''環境'': Writer
-''状態'': 解決
-''投稿者'': [[ike@九州]]
-''投稿日'': 2007-04-20 (金) 15:19:34
*** 質問 [#y7f6b9ff]
こんにちは、いつも勉強させて頂いてます。
ズームでページ全体設定についてはマクロの記録から理解でき...
方法があるのでしょうか？(他に幾つも流用ができそう)
Sub Zoom_Set
dim document,dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.Dispa...
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...
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/te...
-- [[はにゃ?]] &new{2007-04-20 (金) 15:44:20};
- 早速の回答有難うございます。とても分かりやすいですね、...
#comment
*** 感想，コメント，メモ [#s3f7eb2f]
#comment
End:
** [[OOobbs2/36]] [#q03fd361]
-''サマリ'': ズームの状態の取得
-''環境'': Writer
-''状態'': 解決
-''投稿者'': [[ike@九州]]
-''投稿日'': 2007-04-20 (金) 15:19:34
*** 質問 [#y7f6b9ff]
こんにちは、いつも勉強させて頂いてます。
ズームでページ全体設定についてはマクロの記録から理解でき...
方法があるのでしょうか？(他に幾つも流用ができそう)
Sub Zoom_Set
dim document,dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.Dispa...
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...
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/te...
-- [[はにゃ?]] &new{2007-04-20 (金) 15:44:20};
- 早速の回答有難うございます。とても分かりやすいですね、...
#comment
*** 感想，コメント，メモ [#s3f7eb2f]
#comment
Page:
