Guido (email.it) ha scritto:
Il comando oCell.CellStyle = "Default"
Resetta tutti gli stili forzati manualmente e imposta lo stlile
"Standard" SOLO SUL TUO FOGLIO ...
Lo fa anche da te quindi...
Mi confermi che lo fa senza che tu abbia caricato il pacchetto oxt di
Ultimus?
su fogli nuovi riporta lo stile a "Standard" ma non ha effetto sulla
formattazione manuale. (uso wXP OOo 2.4.0)
E così escludiamo differenze di compilazione di OOo...
Ipotizzo che il tuo foglio contenga qualche magia... Forse deriva da
conversioni xls a odf?
La conversione ci fu... ma credo risalga addirittura al secolo scorso...
E certamente gli stili sono stati applicati dopo... molto dopo!
Per contro avevo individuato un fastidioso bug sugli stili gerarchici.
In pratica resettando a default alcune proprietà in uno stile a valle
(figlio), questo non prendeva le proprietà della mamma... l'avevo
segnalato e dovrebbe essere stato corretto!
Per ovviare alla cosa mi ero costruito alcune macro tipo quella che
metto in coda... e macro di quel tipo le ho usate per sistemarmi gli
stili... ma mi fa strano che possano avere effetti come quelli che
rileviamo....
Se copiamo su un foglio nuovo solo una cella (con il suo stile e le
proprietà forzate), le proprietà forzate permangono.
(e avendo copiato una sola cella, abbiamo un solo stile... perdendo del
tutto la gerarchia originale)
Se esportiamo la tabella come nuovo doc, oppure copia/incolla
dell'intera tabella, abbiamo invece quel risultato a metà:
si resetta il font ma non la sua altezza e nemmeno il colore di fondo
In quest'ultimo caso c'è la certezza di aver copiato l'intera
gerarchia... (dal capostipite al pronipote)
Quindi la situazione degli stili pare perfettamente riprodotta....
Dalle prove pare che il comportamento "anomalo" avvenga su tutte le
sheet di quel doc...
Sembrerebbe qualcosa impostato a livello del documento...
insomma... propvo provo... ma non vedo la luce...
Servirebbe un chiarimento del grande PM, ma forse è già in ferie!
Non so se sia già in ferie... sperem di nò! :-)
Ciao
Bart
__
Sub BackGround_2_default
oSheet = ThisComponent.Sheets.getByName(_
ThisComponent.currentcontroller.activesheet.name)
ocell = thiscomponent.currentselection()
sCellStyle = ocell.CellStyle
msgbox "Il colore di sfondo dello Stile <" & sCellStyle & "> applicato
alla cella selezionata" & CHR$(10)_
& " è stato resettato a ""default"" "
oMyStyleCell = Thiscomponent._
StyleFamilies.CellStyles.getByName(sCellStyle)
oMyStyleCell.setPropertyToDefault("CellBackColor")
'oMyStyleCell.setPropertyToDefault("topborder.OuterLineWidth")
'oMyStyleCell.setPropertyToDefault("OuterLineWidth")
end sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
