vba - 使用 VBA 更改 Office 功能区中元素的属性

Question

我是 VBA 和 Office Ribbon UI 的初学者。我正在使用 Office 2007 并使用自定义 UI 在 PPTM 中开发功能区。我添加了一组如下所示的 XML:

<group id="myGroup" label="Hello World" visible="false">
    <labelControl id="lblUsername" label="Your Username: " />
    <labelControl id="lblFullname" label="" />
</group>

所以，在这个 Hello World选项卡，我想将其可见性更改为 true并更改 lblUsername 的值和 lblFullname .目前，这必须在此按钮上一次调用之后完成:

<button id="signin" label="Sign In" image="signin" size="large"
    supertip="Click this button to sign in."
    onAction="ribbon_SignIn" tag="SignIn" />

现在 ribbon_SignIn 中的代码如下:

Sub ribbon_SignIn()
    SignIn.Show
End Sub

这将打开 SignIn表单并从用户那里获取用户名和密码。验证用户名和密码后，一切正常，但我不确定获取控件属性的过程是什么 lblUsername和 lblFullname使用登录用户的详细信息更改其值。

澄清
在 SignIn表单我有以下登录按钮的代码。

Private Sub btnSignIn_Click()
    ' Authentication Mechanism
    MsgBox "You have successfully signed in!"

    ' Show the Ribbon group.
    ' What am I supposed to do here to make the group visible?
    ' Also how do I change the text of the label?
End Sub

那么，在这里我应该放什么才能使该组可见？另外我如何更改标签的文本？

更新 #1
当我使用这两个属性时 getVisible和 getLabel在自定义 UI 中，加载项本身不会显示。 :(我使用的代码是:

<group id="myGroup" label="Hello World" getVisible="VisibleGroup">
    <labelControl id="lblUsername" label="Your Username: " getLabel="lblUsername" />
    <labelControl id="lblFullname" label="" getLabel="lblFullname" />
</group>

如果我删除这两个属性，很奇怪。顺便说一句，我正在使用 Office 2007 .

Answer 1

您可以使用名为 getLabel 的东西。您的 xml 中的属性。

例如

getLabel = "GetLabelMacro"

现在在您的 GetLabelMacro 中，您可以将代码输入为

Sub GetLabelMacro(control As IRibbonControl, ByRef label)
    if control.id = "MyLabel" then
        label = "New Label"
    end if
End Sub

您可以根据自己的目的修改此示例代码。可以通过谷歌搜索 getLabel 回调找到有关 getLabel 语法的更多信息。