OpenOffice.info

Schau mal in den aller ersten Beitrag in dieser Gruppe. Dort stehen einige nützliche Verweise auf Dokumentation.

Vor allem das SDK mit einer Referenz ist wichtig.
Für 2.4: [url]http://download.openoffice.org/2.4.0/sdk.html[/url]
Für 3.0: [url]http://download.openoffice.org/3.0.0/sdk.html[/url]

Na ja un meine FAQ ist auch recht nützlich :D


mfg
Michael

[url=http://wiki.services.openoffice.org/wiki/Documentation/]Developers Guide[/url] bzw. http://api.openoffice.org/docs/common/ref/com/sun/star/module-ix.html sind die Quellen...

  Dim MyDlg as Object
  Dialoglibraries.Loadlibrary("Standard")
  MyDlg= CreateUnoDialog(Dialoglibraries.Standard.Dialog1)
  MyControl=MyDlg.GetControl("ComboBox1")
  
  myDoc = thisComponent
  mySheet = myDoc.sheets(0)
'  Zum Beispiel für die erste Spalte bis Zeile 7 
  For i=0 to 6
  mycell = mysheet.getCellByPosition(0,i)
  MyControl.additem(mycell.value, i)
  next i
  MyDlg.execute()

Du mußt lediglich eine Schleife über den Calc-Bereich machen und die einzelnen Werte dem Kombinationsfeld hinzufügen.

[code]
Dim MyDlg as Object
Dialoglibraries.Loadlibrary("Standard")
MyDlg= CreateUnoDialog(Dialoglibraries.Standard.Dialog1)
MyControl=MyDlg.GetControl("ComboBox1")

myDoc = thisComponent
mySheet = myDoc.sheets(0)
' Zum Beispiel für die erste Spalte bis Zeile 7
For i=0 to 6
mycell = mysheet.getCellByPosition(0,i)
MyControl.additem(mycell.value, i)
next i
MyDlg.execute()
[/code]

mfg
Michael