Salve,
Provi con questa macro
Sub SetNumFormat
dim aLocale as new com.sun.star.lang.Locale
dim oDoc as object
dim oSelect as object
dim sFormat as string
dim lNumFormat as long
aLocale.Language = "fr" : aLocale.Country = "FR"
oDoc = ThisComponent
oSelect = oDoc.CurrentSelection
sFormat = "[blue]+ # ##0,00;[red]- # ##0,00"
lNumFormat = oDoc.getNumberFormats().queryKey( sFormat, aLocale, TRUE)
if ( lNumFormat = -1 ) then
lNumFormat = oDoc.getNumberFormats().addNew ( sFormat, aLocale )
end if
oSelect.NumberFormat = lNumFormat
End Sub
Per me non ho problema.
Francesco Gatto
jack a écrit :
Ciao a tutti,
vorrei formattare alcuni valori numerici come "decimali a due cifre con
segno":
+0,25, -0,12, ecc.
ho provato, come suggerito su oooforum.org, a registrare una macro in cui
applicavo tale formattazione e mi e' venuto un "NumberFormat" pari a 106
che, pero', una volta applicato via macro:
Sheet.getCellByPosition(y,x).NumberFormat=106
non mi da' il segno piu' (per il segno meno nessun problema)
Come posso risolvere?
Grazie :)
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
