如何使用VBA添加自定義條帶選項卡？我正在尋找一種方法，以添加一個自定義選項卡在Excel絲帶，其中將攜帶幾個按鈕。我偶然找到了一些資源，通過谷歌(Google)解決了這個問題，但它們看起來都很詭異，而且復(fù)雜得離譜?？焖俣唵蔚姆椒ㄊ鞘裁?？當我的VBA被加載到Excel時，我希望新的選項卡被加載。更新：我試過這個例子這里但是在最后一條指令中得到一個“Object Required”錯誤：Public Sub AddHighlightRibbon()Dim ribbonXml As StringribbonXml = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">"ribbonXml = ribbonXml + "  <mso:ribbon>"ribbonXml = ribbonXml + "    <mso:qat/>"ribbonXml = ribbonXml + "    <mso:tabs>"ribbonXml = ribbonXml + "      <mso:tab id=""highlightTab"" label=""Highlight"" insertBeforeQ=""mso:TabFormat"">"ribbonXml = ribbonXml + "        <mso:group id=""testGroup"" label=""Test"" autoScale=""true"">"ribbonXml = ribbonXml + "          <mso:button id=""highlightManualTasks"" label=""Toggle Manual Task Color"" "ribbonXml = ribbonXml + "imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"ribbonXml = ribbonXml + "        </mso:group>"ribbonXml = ribbonXml + "      </mso:tab>"ribbonXml = ribbonXml + "    </mso:tabs>"ribbonXml = ribbonXml + "  </mso:ribbon>"ribbonXml = ribbonXml + "</mso:customUI>"ActiveProject.SetCustomUI (ribbonXml)End Sub