【LibreOffice Calc】矩形中のテキストのTopLeft詰めができない

前提・実現したいこと

マクロで生成した矩形中のテキストのTopLeft詰めをしたい。

よろしくお願いいたします。

発生している問題・エラーメッセージ

参考にしたサイトどおりに設定したはずなのですが生成された矩形にはTopLeft詰めが適用されません。

該当のソースコード

basic
1	Dim oShape
2	oShape = ThisComponent.createInstance("com.sun.star.drawing.RectangleShape")
3
4	oShape.TextVerticalAdjust = com.sun.star.drawing.TextVerticalAdjust.TOP
5	oShape.TextHorizontalAdjust = com.sun.star.drawing.TextHorizontalAdjust.LEFT
6	
7	Dim oPage
8	oPage = ThisComponent.CurrentController.activesheet.getDrawPage()
9	oPage.add(oShape)

質問と関係のないサイズや位置の指定は削除してあります。
このように

補足情報（FW/ツールのバージョンなど）

windows7 Professional SP1 64bit
LibreOffice Calc

バージョン: 6.0.3.2 (x64)
Build ID: 8f48d515416608e3a835360314dac7e47fd0b821
CPU threads: 4; OS:Windows 6.1; UI render: default; 
ロケール: ja-JP (ja_JP); Calc: group

行動規範の内容に同意します

回答1件

ベストアンサー

basic
1 Dim oShape
2    oShape = ThisComponent.createInstance("com.sun.star.drawing.RectangleShape")
3
4    Dim oPage
5    oPage = ThisComponent.CurrentController.activesheet.getDrawPage()
6    oPage.add(oShape)
7
8    oShape.String = " " ' なんと文字列を追加しないと文字配置のプロパティを変更できない！なんでやねん！
9    oShape.TextVerticalAdjust = com.sun.star.drawing.TextVerticalAdjust.TOP
10    oShape.TextHorizontalAdjust = com.sun.star.drawing.TextHorizontalAdjust.LEFT
11