2011年5月16日月曜日

セルの背景色とフォントの色を設定する

セルの背景色とフォントの色を設定するマクロのサンプルを下記に記す。
  
Sub ExampleSetCellColor()
       Dim objSheet As Object
       Dim objCell As Object
       objSheet = ThisComponent.CurrentController.ActiveSheet
       '
       'セルB2の背景色を設定
       objCell = objSheet.getCellRangeByName("B2")
       objCell.CellBackColor = RGB(255, 0, 0)
       '
       'セルC2のフォントの色を設定
       objCell = objSheet.getCellRangeByName("C2")
       objCell.CharColor =RGB(0, 0, 255)
End Sub
  
下図は、それぞれ、マクロ実行前と実行後の状態である :

  
セルの背景色を設定するにはセルオブジェクトの CellBackColor
プロパティに RGB 値を指定し、フォントの色を設定するときはセル
オブジェクトの CharColor プロパティに RGB 値を指定する。

0 件のコメント:

コメントを投稿