Top > OOobbs2 > 115

OOobbs2/115 Edit

  • サマリ: マクロからコントロールの追加をするには
  • 環境: Calc
  • 状態: 解決
  • 投稿者: 七志乃権兵衛?
  • 投稿日: 2008-07-26 (土) 10:01:30

質問 Edit

マクロからリストボックス等のコントロールの追加をするにはどうしたらいいのでしょうか?

回答 Edit

フォームコントロールは図形描写オブジェクト com.sun.star.drawing.ControlShape に設定したいコントロールの種類のモデルを設定することで作成します。

ドキュメントの形式によりますが、図形描写オブジェクト (ここではフォームコントロール) のアンカーの種類を変更するとレイアウトが調整できるようになります。

  • はにゃ? 2008-07-27 (日) 02:55:09
  • 追記。

一例です。

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
  • はにゃ? 2008-07-28 (月) 02:06:02

感想,コメント,メモ Edit

  • ありがとうございました! リストボックスを使用したいのですが、リンク先の記事を参考にすれば何とかなりそうです。 駄目な時は、またよろしくお願いしますm(_ _)m -- 七志乃権兵衛 2008-07-27 (日) 22:34:24


Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes