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 件のコメント:
コメントを投稿