Excel 2007 Ribbon

Question

У меня есть простая лента с несколькими группами в ней.

Мне нужно изменить эту ленту через VBA, чтобы переключать видимость на группы, которые у меня есть на ленте. Предположим, что Range («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