Garder l'instance Ruban connecté pour mettre à jour via une CallBack
Bonjour,
Je veux grisé un composant bouton de mon Ruban.
Au démarrage de mon application, je garde l'instance de mon Ruban active et je peux donc utiliser la propriété getEnabled de mon XML.
Par contre je perds l'instance de mon Ruban dans le déroulement du programme et je ne peux plus mettre à jour mon bouton caractérisé dans mon XML par:
Code:
1
2
| <group id="grp6" label="Intégration"> <!-- onAction="ProcLancement" définit la macro déclenchée lorsque vos cliquez sur le bouton. --> <!-- getEnabled="Bouton1_Enabled" gére la condition d'activation ou de désactivation. --> <button id="Bouton2" label="Ecriture" onAction="ProcLancement" size="large" imageMso="Consolidate" getEnabled="Bouton2_Enabled"/>
</group> |
ci dessous le code correspondant dans mon VBA.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Sub Bouton2_Enabled(control As IRibbonControl, ByRef returnedVal)
returnedVal = boolResult
End Sub
Sub MAJ_Ruban(ByVal Activation)
boolResult = Activation
If Not objRuban Is Nothing Then
objRuban.InvalidateControl "Bouton1"
objRuban.InvalidateControl "Bouton2"
objRuban.InvalidateControl "Bouton3"
End If
End Sub |
Merci d'avance de vos idées.
