[VBA] insérer une ligne horizontale le commandbar

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] insérer une ligne horizontale le commandbar

jpcheck

Pioupiou

Bonjour tout le monde,
je cherche à insérer dans mon menu créé en VBA une ligne séparatrice entre plusieurs éléments de mon menu.
VOici mon code

Code :

On Error GoTo erreur
CommandBars("Menu Bar" ).Controls("&KM Labo" ).Delete
Set mybar = CommandBars("Menu Bar" ).Controls("&KM Labo" ) 'Teste l'existence du menu , l'erreur installe les menus
On Error GoTo 0
If Not mybar.Visible Then
mybar.Visible = True
End If
Exit Sub
erreur:
Set myMenuBar = CommandBars("Menu Bar" )
Set NewMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
NewMenu.Caption = "&KM Labo"
Set NewControl = NewMenu.Controls.Add(Type:=msoControlButton, ID:=1)
NewControl.Caption = "&Archiver"
NewControl.TooltipText = "Ajoute le document dans la BDD"
NewControl.Style = msoButtonIconAndCaption
NewControl.OnAction = "AjoutBDD"
'CommandBars("Standard" ).Controls(3).CopyFace 'Copie l'icône n°3 de la barre d'outil standard
'NewControl.PasteFace
NewControl.Visible = True
Set NewControl = NewMenu.Controls.Add(Type:=msoControlButton, ID:=1)
NewControl.Caption = "&Rechercher"
NewControl.TooltipText = "Recherche un document dans la BDD"
NewControl.Style = msoButtonIconAndCaption
NewControl.OnAction = "RechercheBDD"
'CommandBars("Standard" ).Controls(5).CopyFace
'NewControl.PasteFace
NewControl.Visible = True

je cherche à mettre une ligne entre mon Ajouter et mon rechercher. Quel Controls.add dois-je faire svp ?

Merci d'avance.

Publicité

jpcheck

Pioupiou

il serait question de BeginGroup, mais je n'arrive pas à le faire fonctionner.

J'applique un Newcontrol.BeginGroup = True
mais ca ne fonctionne pas
Y a-t-il une référence à ajouter ?

fred65200

un peu tard mais
newmenu.BeginGroup = True
te donnera ce que tu veux je crois

fred65200

pardon j'ai mal lu, il faut mettre le
NewControl.BeginGroup = True
avec NewControl.Caption = "&Rechercher"

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] insérer une ligne horizontale le commandbar

Sujets relatifs
[Batch] Comment lire la 7e ligne d'un fichier ? [Résolu]	Sélection ligne dans lignes filtrées
[VBA] Quitter une procédure	Lire un fichier txt ligne par ligne
[VBA WORD] ouverture d'un fichier selon un template	[php] Saut de ligne \n ne marche pas..
[VBA / DOS] Appeler une macro en DOS	background.gif n'apparait pas lorsque site en ligne
Inserer une page dans une autre ....	VBA access requete SQL et fonction()
Plus de sujets relatifs à : [VBA] insérer une ligne horizontale le commandbar

Page générée en 0.086 secondes