G
Guest
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
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