#1 Mon 04 August 2008 14:24
- nicolas valls
- Participant assidu
- Date d'inscription: 28 Oct 2005
- Messages: 154
Griser les éléments d'un menu en VBA
Bonjour,
je me suis créé un petit menu contenant des UIButtonControl. Je l'ai créé en me servant de la boite de dialogue "Personnaliser" et en y ajoutant les contrôles.
Mon problème est qu'à l'ouverture je fais une vérification et en fonction de ça je veux griser (rendre non cliquable mais visible) les UIButtonControl. Je n'arrive pas à trouver la méthode adéquate. J'en suis rendu là :
Code:
Sub test()
Dim barre As ICommandBar
Dim monmenu As ICommandBar
Dim element As ICommandItem
Dim i As Byte
Set barre = Application.Document.CommandBars.Find(ArcID.MainMenu)
For i = 0 To barre.Count - 1
If barre.Item(i).Name = "Nouveau menu 1" Then Set monmenu = barre.Item(i): Exit For
Next i
If monmenu Is Nothing Then
Else
For i = 0 To monmenu.Count - 1
Set element = monmenu.Item(i)
?????????????????????????????
Next i
End If
End SubQue faire de la variable element, car bon je récupère les buttons il me faudrait quelque chose du genre .enable=false mais ca n'existe pas.
Par avance merci
Hors ligne


