Wie erzeuge ich eine Customer_Toolbar mit Basiccode

getobject.de · March 15, 2021, 9:04am

Und wieder einmal ein Hallo in die Runde.
Ich habe noch ein paar wenige Schwierigkeiten mit der Api zurechtzukommen.

Also, ich möchte via Code eine Toolbar erzeugen. Hier der Code:

Sub ToolbarErzeugen
Dim oModuleCfgMgRSupplier As Variant
Dim oModuleCfgMgr As Variant
Dim oToolbarSettings As Variant
Dim oToolbarItem As Variant
Dim i%
	oModuleCfgMgRSupplier = CreateUnoService("com.sun.star.ui.ModuleUIConfigurationManagerSupplier")
	xray oModuleCfgMgRSupplier
	oModuleCfgMgr = oModuleCfgMgRSupplier.getUIConfigurationManager("scalc")
	oToolbarSettings = oModuleCfgMgr.createSettings()
	oToolbarSettings.UIName = "AL_aktuell"
	oToolbarItem = CreateToolbarItem( ALCHGURL, "AL: " & sALakt)
	otoolbarsetiings.insertByIndex( 0 ,oToolbarItem )
	If (oModuleCfgMgr.hassettings( AL_TOOLBAR )) Then
		oModuleCfgMgr.replaceSettings(AL_TOOLBAR ,oToolbarSettings )
	Else 
	 oModuleCfgMgr.insertsettings( AL_TOOLBAR ,oToolbarSettings )
	End If
	oModuleCfgMgr.store
End Sub

Bei folgender Zeile meckert die IDE

	oModuleCfgMgr = oModuleCfgMgRSupplier.getUIConfigurationManager("scalc")

Meine Frage ist nun, welchen Wert muss ich hier übergeben. Als Parameter wird ein String erwartet, aber mit welchen Inhalt muss er gefüttert werden? Das ist in der API nicht zu finden, oder???
Vielen Dank.