[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

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

A voir également:

[excel][vba] créer un séparateur dans un menu
Créer un compte gmail - Guide
Créer un compte google - Guide
Créer un groupe whatsapp - Guide
Créer un compte instagram - Guide
Menu déroulant excel - Guide

1 réponse

Réponse 1 / 1

Le Pierre
11 mars 2008 à 14:39

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

Newsletters