- サマリ: マクロからコントロールの追加をするには
- 環境: Calc
- 状態: 解決
- 投稿者: 七志乃権兵衛?
- 投稿日: 2008-07-26 (土) 10:01:30
質問 
マクロからリストボックス等のコントロールの追加をするにはどうしたらいいのでしょうか？
回答
フォームコントロールは図形描写オブジェクト com.sun.star.drawing.ControlShape に設定したいコントロールの種類のモデルを設定することで作成します。
ドキュメントの形式によりますが、図形描写オブジェクト (ここではフォームコントロール) のアンカーの種類を変更するとレイアウトが調整できるようになります。
一例です。
Sub list_1a
oDoc = ThisComponent
oDrawPage = oDoc.getDrawPage()
oControlShape = oDoc.createInstance("com.sun.star.drawing.ControlShape")
aPoint = CreateUnoStruct("com.sun.star.awt.Point")
aSize = CreateUnoStruct("com.sun.star.awt.Size")
aPoint.X = 1000
aPoint.Y = 1000
aSize.Width = 5000
aSize.Height = 800
oControlShape.setPosition(aPoint)
oControlShape.setSize(aSize)
oButtonModel = CreateUnoService("com.sun.star.form.component.ListBox")
oControlShape.setControl(oButtonModel)
oDrawPage.add(oControlShape)
with oButtonModel
.Dropdown = True
.StringItemList = Array("ABC", "123")
end with
End Sub
感想，コメント，メモ
- ありがとうございました！ リストボックスを使用したいのですが、リンク先の記事を参考にすれば何とかなりそうです。 駄目な時は、またよろしくお願いしますｍ（＿ ＿）ｍ -- 七志乃権兵衛
