[excel][vba] créer un séparateur dans un menu
Fermé
PhilemonCub
Messages postés
2
Date d'inscription
dimanche 14 janvier 2007
Statut
Membre
Dernière intervention
6 septembre 2007
-
6 sept. 2007 à 20:08
Le Pierre - 11 mars 2008 à 14:39
Le Pierre - 11 mars 2008 à 14:39
Bonjour
Je voudrais mettre un séparateur (ligne grisée) dans un menu crée sous vba excel .
L'enregistreur de macro n'enregistre rien lorsque je créer le séparateur à partir de la commande excel "créer un groupe" disponible la personalisation des menus.
Quelqu'un a t'il une idée du code à écrire ?
Merci
Je voudrais mettre un séparateur (ligne grisée) dans un menu crée sous vba excel .
L'enregistreur de macro n'enregistre rien lorsque je créer le séparateur à partir de la commande excel "créer un groupe" disponible la personalisation des menus.
Quelqu'un a t'il une idée du code à écrire ?
Merci
A voir également:
- [excel][vba] créer un séparateur dans un menu
- Créer un compte google - Guide
- Créer un compte gmail - Guide
- Comment créer un groupe whatsapp - Guide
- Créer un compte instagram sur google - Guide
- Menu déroulant excel - Guide
1 réponse
Voici la soultion que j'ai trouvé (menu contextuel pour une forme Rectangle) :
Sub Modif_Menu()
Dim Menu_Contextuel As CommandBar
Dim NewBtn As CommandBarComboBox
Dim NewBtn2 As CommandBarControl
Set Menu_Contextuel = Application.CommandBars("Shapes")
'trait séparateur
Menu_Contextuel.Controls.Add(before:=1).BeginGroup = True
'Ajout menu
Set NewBtn2 = Menu_Contextuel.Controls.Add(Type:=msoControlButton, before:=1)
With NewBtn2
.Caption = "Coller la couleur du rectangle"
.BeginGroup = True
.OnAction = "CollerCouleurs"
End With
'effacement ligne vide
Menu_Contextuel.Controls.Item(2).Delete
End Sub
Sub Reinit()
Application.CommandBars("Shapes").Reset
End Sub
Sub Modif_Menu()
Dim Menu_Contextuel As CommandBar
Dim NewBtn As CommandBarComboBox
Dim NewBtn2 As CommandBarControl
Set Menu_Contextuel = Application.CommandBars("Shapes")
'trait séparateur
Menu_Contextuel.Controls.Add(before:=1).BeginGroup = True
'Ajout menu
Set NewBtn2 = Menu_Contextuel.Controls.Add(Type:=msoControlButton, before:=1)
With NewBtn2
.Caption = "Coller la couleur du rectangle"
.BeginGroup = True
.OnAction = "CollerCouleurs"
End With
'effacement ligne vide
Menu_Contextuel.Controls.Item(2).Delete
End Sub
Sub Reinit()
Application.CommandBars("Shapes").Reset
End Sub