* ダイアログ中のListBoxにセルのデータを表示したい [#n88023ae]
 |RIGHT:|LEFT:|c
 |~ページ|[[OpenOffice.org FAQの登録ページ]]|
 |~投稿者||
 |~分類|#listbox3(Q&A,faq03,class)|
 |~優先順位|#listbox3(重要,faq03,priority)|
 |~状態|#listbox3(質問,faq03,state)|
 |~状態|#listbox3(完了,faq03,state)|
 |~カテゴリー|#listbox3(Calc 表計算,faq03,category)|
 |~投稿日|2011-03-02 11:30:52 (水)|
 |~OS||
 |~依存するページ||
 |~バージョン|#listbox3(不明,faq03,version)|
 
 ** メッセージ [#h0cd5e02]
 |LEFT:|c
 |回答ページでは行末に「~」を付加する必要はありません|
 下記は書き始めたマクロです
  Sub MyDialog
     Dim dlg As Object
     Dim fld  As Object
     Dim oSheet As Object, oCell As Object
     Dim oMj As String
        
     DialogLibraries.LoadLibrary("Standard")
     dlg = CreateUnoDialog(DialogLibraries.Standard.MyDia1)
     fld = dlg.GetControl("MyLst1")
  
     oSheet = ThisComponent.Sheets("MyTopPg")
     oCell = oSheet.GetCellByPosition(6,19)   
  End Sub
 
 カルクの(MyTopPg)頁のセル (6,19)番地のデータなどを
 ダイアログ(MyDia1)中のリストボックス( MyLst1)に
 表示または連動したいのですが、方法を教えてください。
 
 エクセルならば、MyLst1のプロパテイの中に「MyTopPg!G20:G24」などと書けば連動してくれるのですが
 OOoの場合、マクロはだいぶ勝手が違うようですがチャレンジ中です。
 
 
 ----
 ***完了します! [#p0027e89]
 >Mr_Happy (2011-03-02 15:23:10 (水))~
 ~
 自分で質問し、自分で答える結果に~
 下記のURLで回答を見つけました。このサイトはマクロ関係がたくさんありました。参考までに・・・というか皆さんは知ってましたよね。~
 ~
 http://oooug.jp/compati/basic/pukiwiki.php?%A5%BB%A5%EB%A5%C7%A1%BC%A5%BF%A4%F2%A5%EA%A5%B9%A5%C8%A5%DC%A5%C3%A5%AF%A5%B9%A4%CB%C9%BD%BC%A8%A4%B9%A4%EB~
 
 //
 #article