Excel 2007功能區

Question

我有一個簡單的功能區，裏面有幾個組。

我需要通過VBA修改此功能區以切換功能區中的組的可見性。假設範圍（「A1」）具有「A」作爲單元格值;那麼這個組將是可見的。如果它是空的，它將被隱藏。

以下是一個功能區中的XML，我需要切換組是：

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

Answer 1

試試這個標記的功能區組：

<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