Excel 2007function区

我有一个简单的丝带，里面有几个小组。

我需要通过VBA修改此function区，以切换function区中的组的可见性。 假设范围（“A1”）具有“A”作为单元格值; 那么这个群体将是可见的。 如果它是空的，那么它将被隐藏。

这是该function区的XML，我需要切换的组是：

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

Answer 1

试试这个标签的function区组：

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

然后使用这样一个子显示/隐藏组：

 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