・エラーの内容
BASIC ランタイムエラー
例外が発生しました
Type:com.sun.star.lang.IllegalArgumentException
Message:expected 2 arguments,got 1。
・マクロの内容
Dim Dlg1 As Object
Dim oListBox1 As Object
Sub ListBox
DialogLibraries.LoadLibrary(“Standard”)
Dlg1=CreateUnoDialog(DialogLibraries.Standard.Dialog1)
oListBox1 = Dlg1.GetControl(“ListBox1”)
Dlg1.Execute()
End Sub
Sub Button_Click
With oListBox1
.AddItem(“北海道”)
.AddItem(“青森県”)
.AddItem(“秋田県”)
.AddItem(“岩手県”)
.AddItem(“新潟県”)
.AddItem(“宮城県”)
.AddItem(“福島県”)
End With
End Sub