OOoBasic/Calc/settings

設定の変更

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 関連設定