Umsteigen auf OpenOffice: Von VBA zu OpenOffice-Basic
Eigenschaften zuweisen
Die darin verwendete Struktur objLocalSettings kann nun verschiedene Eigenschaften erhalten:
Dim objLocalSettings As New com.sun.star.lang.Locale
[...]
objLocalSettings.Language = "de"
objLocalSettings.Country = "de"
Man könnte das ebenso über ein Datenfeld realisieren, das mit den Wertepaaren Name und Value gefüllt und anschließend der Variablen lngNumberFormatId zugewiesen wird:
Dim objPropLocalSettings(1) As New com.sun.star.beans.PropertyValue
objPropLocalSettings(0).Name = "Language"
objPropLocalSettings(0).Value = "de"
objPropLocalSettings(1).Name = "Country"
objPropLocalSettings(1).Value = "de"
lngNumberFormatId = objNummerFormat.queryKey(strNummerFormat, objPropLocalSettings(), True)