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