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

我是 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 and 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 and lblFullname使用登录用户的详细信息更改其值。

澄清

In the SignIn form I have the below code for the Sign In button.

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 and 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>

如果我删除这两个属性，那就很奇怪了。顺便说一句，我正在使用办公室2007.

这是一个简单、实用的示例。我用简单的代替InputBox提示而不是尝试重新创建用户窗体代码，但一般原则仍然适用。

我为用户名、全名和 bAuthenticated 创建公共变量（将您的表单分配给这些变量，或直接引用表单）。放bAuthenticated = True一旦您对用户进行了身份验证。

Use the getLabel回调并刷新功能区。我创建了两个单独的回调，一个用于用户名，一个用于全名，这些是getUserName and getFullName。我还添加了vbaVisibleGroup这是从getVisibleXML 属性。

Note对 VBA 进行更改时，您可能必须保存、关闭并重新打开文件，因为进行这些更改可能会清除所有公共变量，包括代表功能区本身的变量。这就是为什么您可能会收到错误RefreshRibbon程序。

您的 xml 可能如下所示。

更新以包含 getVisible 回调

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="RibbonOnLoad">
    <ribbon startFromScratch="false" >
        <tabs>
            <tab id="customTab" label="Custom Tab">
                      <group id="myGroup" label="Hello World" getVisible="VisibleGroup" >
                          <labelControl id="lblUsername" getLabel="getUserName" />
                          <labelControl id="lblFullname" getLabel="getFullName" />
                      </group>
                      <group id="mySignin" label="SignIn" visible="true" >
                          <button id="signin" label="Sign In" size="large"
                              supertip="Click this button to sign in."
                              onAction="ribbon_SignIn" tag="SignIn" />
                      </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

Note:我已经设置了可见属性myGroup to True这样我就可以更容易地测试这个。您可以使用getVisible如果您需要在运行时更改此属性，则类似地回调。

然后 VBA 模块中的回调将或多或少类似于：

Option Explicit
Public Rib As IRibbonUI
Public xmlID As String
Public username As String
Public fullName As String
Public bAuthenticated As Boolean

'Callback for customUI.onLoad
Sub RibbonOnLoad(ribbon As IRibbonUI)
    'MsgBox "onLoad"
    Set Rib = ribbon
End Sub

Sub ribbon_SignIn(control As IRibbonControl)

    username = InputBox("enter your username", "Your username?")
    fullName = InputBox("enter your full name", "Your full name?")

    'Authenticate
    bAuthenticated = True

    VisibleGroup control, bAuthenticated
End Sub
Sub VisibleGroup(control As IRibbonControl, ByRef returnedVal)
    returnedVal = bAuthenticated
    Call RefreshRibbon("myGroup")
End Sub
Sub getUserName(control As IRibbonControl, ByRef returnedVal)
    returnedVal = username
    Call RefreshRibbon(control.id)
End Sub
Sub getFullName(control As IRibbonControl, ByRef returnedVal)
    returnedVal = fullName
    Call RefreshRibbon(control.id)
End Sub
Sub RefreshRibbon(id As String)
    xmlID = id
    'MsgBox "Refreshing ribbon for " & Id, vbInformation
    If Rib Is Nothing Then
        MsgBox "Error, Save/Restart your Presentation"
    Else
        Rib.Invalidate
    End If
End Sub