Calc: NumberFormat

[mike6]

Hallo,

ich suche ein Makro für die Formatierung 0,00 €/m².
Wie bekomme ich das hin?

Folgende Code läuft nicht auf allen PC's.

Code: Alles auswählen

sub euro_pro_qm
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "NumberFormatValue"
args1(0).Value = 108

dispatcher.executeDispatch(document, ".uno:NumberFormatValue", "", 0, args1())
end sub

Moderation,4: Betreff angepasst

[komma4]

Folgende Code läuft nicht auf allen PC's.

Wo läuft er? Wo nicht?

Standardfragen:

Welche OOo-Version?
Welches Betriebssystem?
Welches Speicherformat (*.ods?*.xls?)


Meine Vermutung:
Das NumberFormat wurde nicht in allen Computern -zumindest nicht unter der gleichen ID- eingerichtet.
Die ID kannst Du bei der Einrichtung nicht vergeben. Sie wird intern festgelegt.
Mit Code kannst Du abfragen, ob ein bestimmtes NumberFormat bereits vorhanden ist und dessen ID ermitteln, bevor Du das Format auf die Zelle/den Zellbereich anwendest.

Für ein Codebeispiel musst Du bis nach meiner Mittagspause warten: meine Familie hat Hunger. Und das ist in diesem Land hier nicht zu unterschätzen
Oder sieh' in den Code meiner Extension DateTime2 - dort verwende ich so ein Schnippsel.

[mike6]

Hallo,

wie von Dir vermutet, läuft das Makro nur auf dem PC, wo auch das NumberFormat eingerichtet wurde.

Betriebssystem: Winwows / Linux
Speicherformat : ods
OOo-Version 3.3.2

Code: Alles auswählen

Für ein Codebeispiel musst Du bis nach meiner Mittagspause warten:

Ich warte gerne.

[komma4]

Code: Alles auswählen

Sub addNumberFormat
sFormat = "0,00 ""€/m²"" "
Dim aLocale As New com.sun.star.lang.Locale
oFormats = _
 ThisComponent.NumberFormats
neuesFormatID = _
 oFormats.queryKey( sFormat, aLocale, True )
' Schluesselwert nicht gefunden: hinzufuegen Format
' format not found - key not returned: add format
If neuesFormatID < 0 Then
 neuesFormatID  = _
 oFormats.addNew( sFormat, aLocale )
 msgbox "neue ID: " & neuesFormatID
End If

getestet mit OOo3.2.1/Linux

Eine neu angezeigte ID kannst Du dann in Deinem Code einfügen und den zum Setzen verwenden.

Hilft das weiter?

[mike6]

Hallo,

vielen Dank. Funktioniert einwandfrei.

Kann ich bereits vergebene ID's auch auslesen?
Wie lautet dazu der Code?

[komma4]

Im Beispiel die Anweisung .querykey, liefert eine ID >=0, wenn sie vorhanden ist.