[Risolto] Macro di Calc che non funziona in LibreOffice

[charlie]

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.

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

dà errore run time " valore per la proprietà errato" alla riga:

Codice: Seleziona tutto

ActiveCell.value = CDateFromIso(Ctl.Date)  

Cosa occore cambiare?

[patel]

Puoi allegare un file di esempio ?

[charlie]

Certo il file è quello di gaetanoPr nel link:

[patel]

prova questo

[charlie]

Perfetta, grazie.
Funziona sia in Libreoffice che in OpenOffice .