[Risolto] Macro di Calc che non funziona in LibreOffice
Inviato: sabato 13 maggio 2023, 12:06
Ciao a tutti, in questa vecchia discussione viewtopic.php?p=21929#p21929, @Gaetanopr proponeva una macro da associare alla cella attiva per inserire una data da un controllo data di un formulario.
In OpenOffice funziona, in Libreoffice no.
dà errore run time " valore per la proprietà errato" alla riga:
Cosa occore cambiare?
In OpenOffice funziona, in Libreoffice no.
Codice: Seleziona tutto
Sub CampoData()
' ESEMPIO 1
Dim Doc AS Object
Dim Sheet As Object
Dim DrawPage As Object
Dim Form As Object
Dim Ctl As Object
Dim oCell
Doc = StarDesktop.CurrentComponent
Sheet = Doc.Sheets.GetByIndex(0)
DrawPage = Sheet.DrawPage
Form = DrawPage.Forms.GetByIndex(0)
Ctl = Form.getByName("Campodata1") 'Campo data (Controllo del formulario)
ActiveCell=ThisComponent.CurrentSelection
ActiveCell.value = CDateFromIso(Ctl.Date)
ActiveCell.NumberFormat=75
ActiveCell=thisComponent.currentSelection.CellAddress
col=ActiveCell.column
row=ActiveCell.row
oRanges = Sheet.getCellByPosition(col, row + 1)
Doc.CurrentController.Select(oRanges)
End Sub
Codice: Seleziona tutto
ActiveCell.value = CDateFromIso(Ctl.Date) 
.