Utilisation d'Excel VBA pour capturer le mode d'édition en vérifiant la barre d'outils standard

Question

J'utilise ce code pour vérifier si la barre d'outils standard est désactivée en mode d'édition.

CommandBarControl oNewMenu = Application.CommandBars ("feuille de barre de menus"). FindControl (1, 18, 1, True, True)

If (IsNull(oNewMenu)) Then 

     MsgBox "Edit mode enabled" 

End If 

mais la fonction FindControl provoque une erreur. Y a-t-il un conflit dans les paramètres?

Answer 1

Je suis confus parce que la première instruction ne compilera jamais. En outre, lors de l'évaluation de l'existence d'un objet, vous devez utiliser 'Is Nothing' au lieu de 'IsNull'. essayer Quoi qu'il en soit ceci:

---

Const CTRL_NEW = 2520 

Dim oControl As CommandBarControl 

Set oControl = CommandBars("Standard").FindControl(Id:=CTRL_NEW) 

If Not oControl Is Nothing Then ' Control New is present in Standard bar' 
    MsgBox "Edit mode " & IIf(oControl.Enabled, "enabled", "disabled"), vbInformation 
End If