[VBA-E] Supprimer menu de la barre de menu
AHHHHH,
j'ai trouvé ce code, je l'ai testé par curiosité et je comprenais aps ce qu'il faisait ... je l'ai lancé plein de fois et apres j'ai vu ce qu'il faisait.. il ajoutais des menus et maitenant ma bare est dégue !! :?
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
| Sub AjtCde(Menu As CommandBarPopup, stCde, stSub)
Dim m As CommandBarButton
Set m = Menu.Controls.Add(Type:=msoControlButton, Temporary:=True)
m.Caption = stCde
m.OnAction = stSub
Set m = Nothing
End Sub
Sub AddMenu() 'Dans un module standart
Dim NewM As CommandBarPopup
Dim sMenu1 As CommandBarPopup
Dim sMenu2 As CommandBarPopup
Set NewM = CommandBars(1).Controls.Add(Type:=msoControlPopup, _
Before:=CommandBars(1).Controls("?").Index, Temporary:=True)
NewM.Caption = "Synthese mensuelle"
Set sMenu1 = NewM.Controls.Add(Type:=msoControlPopup, Temporary:=True)
sMenu1.Caption = "Sous Menu1"
Set sMenu2 = NewM.Controls.Add(Type:=msoControlPopup, Temporary:=True)
sMenu2.Caption = "Sous Menu2"
AjtCde sMenu1, "Ma commande Menu1-1", "Sub1-1"
AjtCde sMenu1, "Ma commande Menu1-2", "Sub1-2"
AjtCde sMenu2, "Ma commande Menu2-1", "Sub2-1"
AjtCde sMenu2, "Ma commande Menu2-2", "Sub2-2"
Set sMenu1 = Nothing
Set sMenu2 = Nothing
Set NewM = Nothing
End Sub |
comment peut-on les supprimer? j'ai cherché dans l'aide et j'ai trouvé "reset"
Code:
1
2
3
4
5
| Sub supprimermenu()
CommandBarButton.Reset
End Sub |
il me dit objet requis :(
j'ai aussi testé avec commandbarpopup et meme erreur :?
