У меня есть пользовательская лента, у меня есть несколько групп, которые мне нужно будет скрыть 1 группу, но другие группы будут отображаться. В примере показана возможность показывать только 1 группу, а не другую. Кто-нибудь знает, как я могу изменить, чтобы показать другие группы?
xml:
<group id="MyCustomGroup2" label="First Controls" getVisible = "GetVisible" tag="First" >
<button id="customButton3" label="Label 1" size="normal" onAction="TransferNA" imageMso="FileServerTransferDatabase" tag="transfer" />
</group>
<group id="MyCustomGroup3" label="Second Controls" getVisible = "GetVisible" tag="Second">
<button id="customButton5" label="Label 2" size="normal" onAction="HideInfor" imageMso="FormHeaderOrFooterShowHide" />
</group>
<group id="MyCustomGroup4" label="Third Controls" getVisible = "GetVisible" tag="Third">
<button id="customButton4" label="Label 3" size="normal" onAction="ShowInfor" imageMso="FormHeaderOrFooterShowHide" />
</group>
Dim Rib As IRibbonUI
Dim MyTag As String
Sub RibbonOnLoad(ribbon As IRibbonUI)
Set Rib = ribbon
End Sub
Sub GetVisible(control As IRibbonControl, ByRef visible)
If control.Tag Like MyTag Then
visible = True
Else
visible = False
End If
End Sub
Sub RefreshRibbon(Tag As String)
MyTag = Tag
If Rib Is Nothing Then
MsgBox "Error, restart your workbook"
Else
Rib.Invalidate
End If
End Sub
Sub HideFirstGroupButShowSecondAndThird()
Call RefreshRibbon(Tag:="First") 'Hide First but show Second and Third???????
End Sub