[VBA] Urgent - Comment modifier le menu contextuel de Word? [résolu]

Urgent - Comment modifier le menu contextuel de Word? [résolu] [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 22-07-2002 à 16:49:13    

Salut,
Voilà je souhaite ajouter des options au menu contextuel de Word mais je ne sais pas comment le manipuler.
Avec les autres menus, pas de probleme, mais la j'ai pas son nom et je vois pas comment faire.
Merci d'avance !
 
 
 
 
--> c bon j'ai trouvé.


Message édité par spectro le 22-07-2002 à 17:56:47
Reply

Marsh Posté le 22-07-2002 à 16:49:13   

Reply

Marsh Posté le 25-07-2002 à 15:40:56    

Maintenant explique ...  :jap:

Reply

Marsh Posté le 25-07-2002 à 15:44:11    

Ca m'énerve ce genre de post à la con ou le gus se barre comme un malpropre sans dire ce qu'il a fait !!! personne ne pense que ça peut interesser du monde ou quoi ???  :fou:  
 
 :gun:


---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Marsh Posté le 25-07-2002 à 17:34:36    

Harkonnen a écrit a écrit :

Ca m'énerve ce genre de post à la con ou le gus se barre comme un malpropre sans dire ce qu'il a fait !!! personne ne pense que ça peut interesser du monde ou quoi ???  :fou:  
 
 :gun:  




 
Super, excuse moi mon grand, n'ayant vu aucune reponse je pensais pas que ca interresserait du monde. Deuxiemement rien ne t'empeche de demander gentiment !
J'avais oublié d'activer "etre prevenu par email en cas de reponse" je m'en excuse donc et j'espère que t'as pas trop attendu.
 
 
 

Code :
  1. Dim Pop_upMenu As CommandBar
  2. ' On se place sur le bon menu contextuel
  3.   Set Pop_upMenu = CommandBars("text" )
  4.   ' Reinitialisation du menu Pop-Up
  5.   Pop_upMenu.Reset
  6.  
  7.   ' ---> Les options du 1er niveau
  8.   Set myTools = Pop_upMenu.Controls.Add(Type:=msoControlPopup)
  9.   Set style1 = myTools.Controls.Add(Type:=msoControlButton, Before:=1, Parameter:="G_Sur-Titre" )
  10.   Set style2 = myTools.Controls.Add(Type:=msoControlButton, Before:=2, Parameter:="G_Titre" )
  11. ' etc...


 
En fait le seul probleme que j'avais c'est simplement que je ne savais pas que le menu contextuel de Word s'appellait "text" et donc je n'arrivait pas a bosser dessus.
Voilà

Reply

Marsh Posté le 25-07-2002 à 17:45:45    

:jap:


---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Marsh Posté le 10-09-2013 à 10:26:40    

Bonjour à tous,
 
Le bout de code ci-dessus m'a donné une piste pour réaliser un bouton dans un menu contextuel...seulement moi j'avais besoin de connaître le nom du menu contextuel des cellules d'un tableau word  :pt1cable:  
 
En cherchant je suis tombé sur un bout de code de MS qui permet de récupérer les noms des menus contextuels, et comme j'ai un peu galéré pour le trouver, je viens le partager avec vous pour ceux qui aurait des besoins similaires:

Code :
  1. 'Pour faire apparaître les noms des menus
  2. Sub Add_Name_To_Contextmenus()
  3.     Dim Cbar As CommandBar
  4.     For Each Cbar In Application.CommandBars
  5.         With Cbar
  6.             If .Type = msoBarTypePopup Then
  7.                 On Error Resume Next
  8.                 With .Controls.Add(Type:=msoControlButton)
  9.                     .Caption = "Name for VBA = " & Cbar.Name
  10.                     .Tag = "NameButtonInContextMenu"
  11.                 End With
  12.                 On Error GoTo 0
  13.             End If
  14.         End With
  15.     Next
  16. End Sub
  18. 'Pour faire disparaître les noms des menus
  19. Sub Delete_Name_From_Contextmenus()
  20.     Dim Cbar As CommandBar
  21.     Dim ctrl As CommandBarControl
  23.     For Each Cbar In Application.CommandBars
  24.         With Cbar
  25.             If .Type = msoBarTypePopup Then
  26.                 For Each ctrl In .Controls
  27.                     If ctrl.Tag = "NameButtonInContextMenu" Then
  28.                         ctrl.Delete
  29.                     End If
  30.                 Next ctrl
  31.             End If
  32.         End With
  33.     Next
  34. End Sub


 
Pour plus d'infos: http://msdn.microsoft.com/fr-fr/li [...] e.14).aspx
 
Enjoy  :)


Message édité par snakeshit_bzh le 10-09-2013 à 10:27:29
Reply

Sujets relatifs:

Leave a Replay

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