Grazie all'utilizzo di Xray sono riuscito ad individuare dove è
contenuto l'elenco dei valori accettabili per una cella
/sub subAddScelta
Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object
dim formula1Var as string
Doc = ThisComponent
Sheet = Doc.Sheets(0)
Cell = Sheet.getCellByPosition(0, 4)
formula1 = Cell.Validation.GetFormula1()/
Nella variabile Formula1 trovo correttamente il contenuto dell'elenco
("pluto";"paperino")
A questo punto ero sicuro che utilizzando la /SetFormula1/ potessi
variare i valori impostati, quindi con l'istruzione seguente ci ho provato.
/status = Cell.Validation.SetFormula1("pippo")/
purtroppo il contenuto dell'elenco di validità è rimasto invariato (ho
verificato con Xray).
Dov'è il mio errore?
grazie
Roberto Birago
