Libre:084 セル内の文字列を操作する

全く同じことはできませんが、(できるかもしれないが面倒くさい)

以下のコードが最も近いでしょうか。

その他にleft, right, midを使う方法が

あるかもしれません。

 
 

Sub ksCalcCharColor()
Dim objDoc as Object, objSheet as Object
Dim objCell as Object
Dim oTextCursor as Object

objDoc=ThisComponent
objSheet=objDoc.getSheets().getByName(“sheet1”)
objCell=objSheet.getCellByPosition(0,0)
oTextCursor = objCell.createTextCursor()
With oTextCursor
.gotoStart( False )
.goRight( 3, True )
.setPropertyValue( “CharColor”, RGB(255,0,0) )
.gotoEnd( False )
End With
msgbox “Success”
End Sub

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA