Question

我有一个简单的功能区，里面有几个组。

我需要通过VBA修改此功能区，以切换功能区中我所拥有的组的可见性。假设Range（“A1”）具有“A”作为单元格值;然后这个小组就可见了。如果它是空的那么它将被隐藏。

以下是该功能区的XML，我需要切换的组是：

<group id="rxGrp_DeveloperTools" label="Developer Tools">

Answer 1

为功能区组尝试此标记：

&lt;group id="rxGrp_DeveloperTools" label="Developer Tools" getVisible="rxGrp_DeveloperTools_GetVisible"&gt;

然后使用像这样的子来显示/隐藏组：

Sub rxGrp_DeveloperTools_GetVisible(control As IRibbonControl, ByRef bVisible)

    Dim sht as Worksheet
    Set sht = ActiveWorkbook.Sheets(1)

    If sht.Range("A1").Value = "A" Then
        bVisible = True
    Else
        bVisible = False
    End If

End Sub

Excel 2007功能区

1 个答案: