Question

我使用宏创建了几个选项卡，组和命令的自定义项目功能区。我使用在项目打开时运行的宏来做到这一点，并且工作正常。今天起，我只需要在“ Run Well”评论中使用按钮即可。现在，我想实现其他控件，例如editbox或使用个人图标代替MsoImages。在注释中带有“问题”的行将添加到功能区中的控件，允许编辑值，但是所有我认为要测试的

初始化值
获得新价值

我使用的宏类似于下图所示，用于创建功能区自定义和获取editbox值。

感谢您的帮助，对不起我的英语，这当然是近似的。

目前，例如，我每次尝试更新editbox值时，都会收到“自动化错误” ，我完全无法通过任何脚本获取或更新editbox值。

Sub Ribbon_Update()
    Dim ribbonXml As String

    ribbonXml = ribbonXml + "<!-- <mso:cmd app=""MSProject"" dt=""0"" /> -->"
    ribbonXml = ribbonXml + "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"" loadImage=""Ribbon_loadImage"">"
    ribbonXml = ribbonXml + "  <mso:ribbon>"
    ribbonXml = ribbonXml + "    <mso:tabs>"
    ribbonXml = ribbonXml + "      <mso:tab id=""Menu_FTF"" label=""Menu FTF"" insertBeforeQ=""mso:TabFormat"">"
    ribbonXml = ribbonXml + "         </mso:group>"
    ribbonXml = ribbonXml + "            <mso:button id=""Upload"" image=""Moi.png"" label=""Upload Planning"" size=""large"" onAction=""Upload_""/>"  'Run well
    ribbonXml = ribbonXml + "            <mso:editBox id=""editBox01"" label=""Texte :"" screentip=""Test"" sizeString=""99999"" maxLength=""5"" onChange=""" & File_ & "Appel_Fct""/>"  'Issue 
    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
'*******************************************************
Sub Appel_Fct(control As IRibbonControl, Text_ as String)
    '*** Command to execute when editbox value is changed
'End Sub

目前，例如，我每次尝试更新editbox值时，都会收到“自动化错误” ，我完全无法通过任何脚本获取或更新editbox值。有关信息，当我运行宏Ribbon_Update时，不会触发OnRibbonLoad方法。

功能区自定义，获取编辑框值

0 个答案: