Dovrei riempire una combobox (in una finestra di dialogo) prendendo i valori da una area di celle di calc. Per inserire uno o più (pochi) valori mi funziona nel seguente modo: oDlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1) oDlg.Model.ComboBox1.StringItemList = Array(ThisComponent.Sheets.ge...

Mi rispondo da solo REM ***** BASIC ***** option explicit private Dlg As Object 'Sub per apertura maschera Sub Apri_Finestra1 Dim Valore as long DialogLibraries.LoadLibrary("Standard") Dlg = CreateUnoDialog(DialogLibraries.Standard.dlgF_Finestra1) Valore=Dlg.Execute() Dlg.dispose() end sub...

Modifica il codice seguente in base alle tue esigenze 'creazione finestra di dialogo DialogLibraries.LoadLibrary( "Standard" ) oDialog1 = CreateUnoDialog( DialogLibraries.Standard.PARZIALE ) oDialog1Model = oDialog1.Model oValueBox = oDialog1Model.getByName("DATA") oValueBox3 = o...

Spero che qualcuno possa aiutarmi. Ho creato una finestra di dialogo con tre campi numerici di valore iniziale 1, 2 e 3 Dim Dlg As Object DialogLibraries.LoadLibrary("Standard") Dlg = CreateUnoDialog(DialogLibraries.Standard.Dialog2) Ctl1 = Dlg.getControl("Num1") Ctl1.value = 1 C...