[VBA] insérer une ligne horizontale le commandbar

insérer une ligne horizontale le commandbar [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 08-03-2007 à 15:52:23    

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 :
  1. On Error GoTo erreur
  2. CommandBars("Menu Bar" ).Controls("&KM Labo" ).Delete
  3. Set mybar = CommandBars("Menu Bar" ).Controls("&KM Labo" ) 'Teste l'existence du menu , l'erreur installe les menus
  5. On Error GoTo 0
  6. If Not mybar.Visible Then
  7. mybar.Visible = True
  8. End If
  9. Exit Sub
  10. erreur:
  11. Set myMenuBar = CommandBars("Menu Bar" )
  12. Set NewMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
  13. NewMenu.Caption = "&KM Labo"
  15. Set NewControl = NewMenu.Controls.Add(Type:=msoControlButton, ID:=1)
  16. NewControl.Caption = "&Archiver"
  17. NewControl.TooltipText = "Ajoute le document dans la BDD"
  18. NewControl.Style = msoButtonIconAndCaption
  19. NewControl.OnAction = "AjoutBDD"
  20. 'CommandBars("Standard" ).Controls(3).CopyFace     'Copie l'icône n°3 de la barre d'outil standard
  21. 'NewControl.PasteFace
  22. NewControl.Visible = True
  24. Set NewControl = NewMenu.Controls.Add(Type:=msoControlButton, ID:=1)
  25. NewControl.Caption = "&Rechercher"
  26. NewControl.TooltipText = "Recherche un document dans la BDD"
  27. NewControl.Style = msoButtonIconAndCaption
  28. NewControl.OnAction = "RechercheBDD"
  29. 'CommandBars("Standard" ).Controls(5).CopyFace
  30. 'NewControl.PasteFace
  31. NewControl.Visible = True


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

Reply

Marsh Posté le 08-03-2007 à 15:52:23   

Reply

Marsh Posté le 08-03-2007 à 17:10:25    

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 ?

Reply

Marsh Posté le 24-07-2007 à 21:35:12    

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

Reply

Marsh Posté le 24-07-2007 à 21:36:44    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed