无法在项目打开时插入 MS 项目功能区

Question

因此，在 https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2010/ee767705(v=office.14)?redirectedfrom=MSDN 之后，我希望在打开时将包含自定义图标的 MSProject.OfficeUI 文件迁移到编码为运行的此项目中。这是由于转移到一项新服务，在该服务中，用户将无法访问应用程序数据并且希望保持功能可用。

虽然我的代码没有错误，甚至通过 F8 走它，但是没有创建新的 ribbion。

你能看出我需要调整什么才能完成这项工作吗？

谢谢

人族

Private Sub Project_Activate(ByVal pj As Project)
    AddRibbon
End Sub

Private Sub AddRibbon()
            ' https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2010/ee767705(v=office.14)?redirectedfrom=MSDN
            Dim ribbonXml As String

            ribbonXml = "<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=""toolsGroup"" label=""Tools"" autoScale=""true"">"
            ribbonXml = ribbonXml + "          <mso:button id=""tools1"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""tools2"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""tools3"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""tools4"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""tools5"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""tools6"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "        </mso:group>"
            ribbonXml = ribbonXml + "        <mso:group id=""viewsGroup"" label=""Views"" autoScale=""true"">"
            ribbonXml = ribbonXml + "          <mso:button id=""views1"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""views2"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""views3"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""views4"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""views5"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""views6"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""views7"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""views8"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""views9"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""view10"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""views11"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""views12"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "        </mso:group>"
            ribbonXml = ribbonXml + "        <mso:group id=""reportingGroup"" label=""Reporting"" autoScale=""true"">"
            ribbonXml = ribbonXml + "          <mso:button id=""report1"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""report2"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""report3"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""report4"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""report5"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""report6"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "        </mso:group>"
            ribbonXml = ribbonXml + "        <mso:group id=""utilsGroup"" label=""Utilities"" autoScale=""true"">"
            ribbonXml = ribbonXml + "          <mso:button id=""util1"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""util2"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""util3"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""util4"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""util5"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""util6"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""util7"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""util8"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""util9"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""util10"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""util11"" label=""Toggle Manual Task Color"" imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
            ribbonXml = ribbonXml + "          <mso:button id=""util12"" label=""Toggle Manual Task Color"" 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

Answer 1

PC 重启后解决 - 奇怪。

T

编辑 - 对于其他任何人 - 请注意在声明中使用“”with

无法在项目打开时插入 MS 项目功能区

Unable To Insert MS Project Ribbon On Project Open

vba

project

ms-project