Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Geo
Bonjour Jean-Yves
Un exemple à adapter, j'espère qu'il marche encore en word97. utilise l'aide pour comprendre chaque paramètre :
Créer le menu : 'Indique où le nouveau menu doit être placé CustomizationContext = ActiveDocument.AttachedTemplate 'Ajoute un menu à la barre des menus With CommandBars("Menu Bar").Controls .Add(Type:=msoControlPopup, Before:=8).Caption = "Documents" End With
Ajouter une ligne au menu :
Set LigneMenu = Menu.Add(Type:=msoControlButton) ', id:=1, Before:=1) With LigneMenu .Caption = "Mettre en format paysage" .TooltipText = "Met tout le document en format paysage" ' .Style = msoButtonIcon .FaceId = 13 .BeginGroup = False .OnAction = "PrésentationHorizontale" End With
A+
Bonjour Jean-Yves
Un exemple à adapter, j'espère qu'il marche encore en word97.
utilise l'aide pour comprendre chaque paramètre :
Créer le menu :
'Indique où le nouveau menu doit être placé
CustomizationContext = ActiveDocument.AttachedTemplate
'Ajoute un menu à la barre des menus
With CommandBars("Menu Bar").Controls
.Add(Type:=msoControlPopup, Before:=8).Caption = "Documents"
End With
Ajouter une ligne au menu :
Set LigneMenu = Menu.Add(Type:=msoControlButton) ', id:=1, Before:=1)
With LigneMenu
.Caption = "Mettre en format paysage"
.TooltipText = "Met tout le document en format paysage"
' .Style = msoButtonIcon
.FaceId = 13
.BeginGroup = False
.OnAction = "PrésentationHorizontale"
End With
Un exemple à adapter, j'espère qu'il marche encore en word97. utilise l'aide pour comprendre chaque paramètre :
Créer le menu : 'Indique où le nouveau menu doit être placé CustomizationContext = ActiveDocument.AttachedTemplate 'Ajoute un menu à la barre des menus With CommandBars("Menu Bar").Controls .Add(Type:=msoControlPopup, Before:=8).Caption = "Documents" End With
Ajouter une ligne au menu :
Set LigneMenu = Menu.Add(Type:=msoControlButton) ', id:=1, Before:=1) With LigneMenu .Caption = "Mettre en format paysage" .TooltipText = "Met tout le document en format paysage" ' .Style = msoButtonIcon .FaceId = 13 .BeginGroup = False .OnAction = "PrésentationHorizontale" End With
A+
Guy Moncomble
Bonjour à tous, dans le message : %23b%,
Pendant que j'y étais, j'aurais pu mettre un exemple de fonction à exécuter.
Public Sub ActionListe() Dim NumElement As Integer, TexteElement As String 'Element sélectionné NumElement = CommandBars("Totor").Controls(2).ListIndex 'Texte de l'élément TexteElement ActiveDocument.CommandBars("Totor").Controls(2).List(NumElement) MsgBox TexteElement, vbOKOnly + vbInformation, "Sélection d'un élément de la liste" End Sub
Voilà, c'est fait -- A+
GMO MVP Word
Et surtout : - ne lisez pas le manuel de Word, encore moins l'aide - ne réfléchissez pas au problème qui se pose à vous - expliquez le plus confusément possible les phénomènes constatés - exigez une réponse immédiate - expliquez à celui qui vous aide comment et pourquoi il aurait du appliquer *votre* solution (qui évidemment ne marche pas) - niez l'évidence : la solution qu'un bénévole a parfois mis des heures à mettre au point ne marche pas chez vous qui l'appliquez mal depuis 2 minutes. - ne dites ni bonjour ni merci - ne perdez pas la face : ne faites savoir à personne que vous avez été dépanné
- insultez les contributeurs bénévoles, ils ne veulent pas l'avouer, mais ils adorent cela. Si c'est un MVP vous avez un bonus.
Bonjour à tous,
dans le message : %23b%23acRESDHA.1924@TK2MSFTNGP12.phx.gbl,
Pendant que j'y étais, j'aurais pu mettre un exemple de fonction à
exécuter.
Public Sub ActionListe()
Dim NumElement As Integer, TexteElement As String
'Element sélectionné
NumElement = CommandBars("Totor").Controls(2).ListIndex
'Texte de l'élément
TexteElement ActiveDocument.CommandBars("Totor").Controls(2).List(NumElement)
MsgBox TexteElement, vbOKOnly + vbInformation, "Sélection d'un élément
de la liste"
End Sub
Voilà, c'est fait
--
A+
GMO MVP Word
Et surtout :
- ne lisez pas le manuel de Word, encore moins l'aide
- ne réfléchissez pas au problème qui se pose à vous
- expliquez le plus confusément possible les phénomènes constatés
- exigez une réponse immédiate
- expliquez à celui qui vous aide comment et pourquoi il aurait
du appliquer *votre* solution (qui évidemment ne marche pas)
- niez l'évidence : la solution qu'un bénévole a parfois mis des
heures à mettre au point ne marche pas chez vous qui l'appliquez mal
depuis 2 minutes.
- ne dites ni bonjour ni merci
- ne perdez pas la face : ne faites savoir à personne que vous
avez été dépanné
- insultez les contributeurs bénévoles, ils ne veulent pas
l'avouer, mais ils adorent cela. Si c'est un MVP vous avez un bonus.
Pendant que j'y étais, j'aurais pu mettre un exemple de fonction à exécuter.
Public Sub ActionListe() Dim NumElement As Integer, TexteElement As String 'Element sélectionné NumElement = CommandBars("Totor").Controls(2).ListIndex 'Texte de l'élément TexteElement ActiveDocument.CommandBars("Totor").Controls(2).List(NumElement) MsgBox TexteElement, vbOKOnly + vbInformation, "Sélection d'un élément de la liste" End Sub
Voilà, c'est fait -- A+
GMO MVP Word
Et surtout : - ne lisez pas le manuel de Word, encore moins l'aide - ne réfléchissez pas au problème qui se pose à vous - expliquez le plus confusément possible les phénomènes constatés - exigez une réponse immédiate - expliquez à celui qui vous aide comment et pourquoi il aurait du appliquer *votre* solution (qui évidemment ne marche pas) - niez l'évidence : la solution qu'un bénévole a parfois mis des heures à mettre au point ne marche pas chez vous qui l'appliquez mal depuis 2 minutes. - ne dites ni bonjour ni merci - ne perdez pas la face : ne faites savoir à personne que vous avez été dépanné
- insultez les contributeurs bénévoles, ils ne veulent pas l'avouer, mais ils adorent cela. Si c'est un MVP vous avez un bonus.
