B
Ben B
Guest
Je voudrais savoir comment je peux:
1.Inserer une ligne de division dans mon sous-menu
2. Inserer une FaceId dans le titre du menu principal (message d'erreur quand j'insere: FaceId = 266 )?
Sub InsereMenuContextuePopUp()
With Application.CommandBars("Cell")
With .Controls.Add(msoControlPopup)
.Caption = "Exemple"
.BeginGroup = True
.FaceId = 266 "Message d'erreur!?"
' Sous-menu 1 (Exemple1 )
.Controls.Add (msoControlButton)
.Controls(1).Caption = "Exemple 1"
With .Controls(1)
.OnAction = "MyMacro"
.FaceId = 351
End With
..............
.............
End Sub
1.Inserer une ligne de division dans mon sous-menu
2. Inserer une FaceId dans le titre du menu principal (message d'erreur quand j'insere: FaceId = 266 )?
Sub InsereMenuContextuePopUp()
With Application.CommandBars("Cell")
With .Controls.Add(msoControlPopup)
.Caption = "Exemple"
.BeginGroup = True
.FaceId = 266 "Message d'erreur!?"
' Sous-menu 1 (Exemple1 )
.Controls.Add (msoControlButton)
.Controls(1).Caption = "Exemple 1"
With .Controls(1)
.OnAction = "MyMacro"
.FaceId = 351
End With
..............
.............
End Sub