1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| CommandBars("MenuContextuelPourEtat").Delete ' efface d'abord cette toolbar avant de la recréer
Dim cmbBtn As CommandBarButton
Dim cmb As CommandBar
Set cmb = Application.CommandBars.Add(Name:="MenuContextuelPourEtat", Position:=msoBarPopup, Temporary:=False)
With cmb
.Controls.Add(msoControlButton, 247, , , True).BeginGroup = True '247 page Setup
.Controls.Add msoControlButton, 15948, , , True '15948 Imprimer...
Set cmbBtn = .Controls.Add(msoControlButton, 2188, , , True) '2188 Exporter
cmbBtn.BeginGroup = True
cmbBtn.Caption = "Exporter"
.Controls.Add msoControlButton, 12499, , , True '12499 Envoi PDF ou XPS
Set cmbBtn = .Controls.Add(msoControlButton, 106, , , True) '106 Fermer
cmbBtn.BeginGroup = True
cmbBtn.Caption = "Fermer la fenêtre"
End With |
Partager