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

Question

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

尽管我在代码上没有错误，甚至通过 F8 遍历它，但没有创建新的功能区。

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

谢谢

人族

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

在电脑重启后解决 - 奇怪。

T

编辑 - 对于其他任何人 - 注意在语句中使用“”