Libre:075 指定セル範囲のフォントを変更する

Libre Basic

選択範囲のフォント変更はCharFontName(西洋)とCharFontNameAsian(東洋)

の２種類があります。

これを使い分けないと、うまくフォント変更ができません。

日本語のフォントは東洋フォントを変更しないと反映されないということです。

 

Sub ksChangeFont
Dim objSheet as Object
Dim objCellRange as Object

objSheet=ThisComponent.sheets(0)
objCellRange=objSheet.getCellRangeByPosition(0,0,2,2)
objCellRange.CharFontName = “Arial Black”
objCellRange.CharFontNameAsian = “メイリオ”
end sub