Hi,

with the following code I try to insert buttons into the QuickAccessToolbar,
which does not work.

Dim strDescription As String
strDescription = "customUI
xmlns=""http://schemas.microsoft.com/office/2006/01/customui""
loadImage=""LoadImage"""
strDescription = strDescription & _
"ribbon" & _
"quat" & _
"documentControls" & _
"button id=""IDS_WaehlenCombo"" label=""" &
GetCheckedResString(IDS_WaehlenCombo) & """ onAction=""cmdCommonRibbonBttn""
getImage=""GetImage"" /" & _
"button id=""IDS_Auflegen"" label=""" &
GetCheckedResString(IDS_Auflegen) & """ onAction=""cmdCommonRibbonBttn""
getImage=""GetImage"" /" & _
"button id=""IDS_Aktionen"" label=""" &
GetCheckedResString(IDS_Aktionen) & """ onAction=""cmdCommonRibbonBttn""
getImage=""GetImage""/" & _
"/documentControls" & _
"/quat" & _
"/ribbon" & _
"/customUI"

Does anybody see my failure?
Christian