設定の変更
Calc シートの設定などの変更行います。 変更することのできる設定にはさまざまなものがあります。 「ツール」- 「オプション」 - 「表計算ドキュメント」の項目の設定の変更を行ってみます。 「表計算ドキュメント」の設定の中で,「全般」,「印刷」,「順序リスト」は GlobalSheetSettings? の設定を変更することで設定を変更します。 GlobalSheetSettings
GlobalSheetSettings の設定を変更する必要がある設定の変更を行ってみます。この場合, ProcessServiceManager から GlobalSheetSettings サービスのインターフェースを作成します。 たとえば,次のようにしてインスタンス化します。 Dim oGSheetSettings As Object oGSheetSettings = _ CreateUnoService("com.sun.star.sheet.GlobalSheetSettings") 説明には上記の oGSheetSettings オブジェクトを使用します。 Enter を押した際の移動方向
Enter を押した際のセルカーソルの移動方向を変更してみます。この設定には MoveDirection プロパティーを使用します。また,このプロパティーの設定には .sheet.MoveDirection の定数を用います。
移動方向を右に変更してみます。 Sub settings_1 Dim oGSheetSettings As Object oGSheetSettings = _ CreateUnoService("com.sun.star.sheet.GlobalSheetSettings") oGSheetSettings.MoveDirection = com.sun.star.sheet.MoveDirection.RIGHT End Sub 順序リスト
順序リストを扱ってみます。UserLists プロパティーを使用します。 Sub settings_2 Dim oGSheetSettings As Object Dim aList() As String oGSheetSettings = _ CreateUnoService("com.sun.star.sheet.GlobalSheetSettings") aList() = oGSheetSettings.UserLists For i% = 0 To UBound(aList()) MsgBox aList(i) Next i End Sub リストが配列の要素になっていて,その要素に順序リストの個別の要素がコンマで区切られています。 各種設定
ドキュメントごとの下記の項目を設定します。変更は個別のドキュメントごとに反映されます。 oSettings = oDoc.createInstance("com.sun.star.sheet.DocumentSettings") 一般設定
Calc 関連設定
|