Procédure de programmation pour ajouter un bouton de barre d'outils (et OnClick gestionnaire) pour Excel

C'est la base de quelque chose qui devrait fonctionner sur les versions jusqu'à mais pas y compris Excel 2007, qui a une toute autre interface.

Cela va dans votre module ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    DeleteCommandBar
End Sub
Private Sub Workbook_Open()
    ShowToolbar
End Sub

Et cela peut aller dans le même module ou d'une autre, à votre choix, bien que je préfère le mettre dans son propre module où il peut être plus visible. Vous ne devriez pas besoin d'un OnClick, le bouton est dit que la routine d'appel lorsque vous créez le bouton.

Private Const TOOLBARNAME = "MyFunkyNewToolbar"

Public Sub ShowToolbar()
' Assumes toolbar not already loaded '
    Application.CommandBars.Add TOOLBARNAME
    AddButton "Button caption", "This is a tooltip", 526, "NameOfASubInYourVBACode"
    ' call AddButton more times for more buttons '
    With Application.CommandBars(TOOLBARNAME)
        .Visible = True
        .Position = msoBarTop
    End With
End Sub

Private Sub AddButton(caption As String, tooltip As String, faceId as Long, methodName As String)
Dim Btn As CommandBarButton
    Set Btn = Application.CommandBars(TOOLBARNAME).Controls.Add
    With Btn
        .Style = msoButtonIcon
        .FaceId = faceId ' choose from a world of possible images in Excel: see http://www.ozgrid.com/forum/showthread.php?t=39992 '
        .OnAction = methodName
        .TooltipText = tooltip
    End With        
End Sub

Public Sub DeleteCommandBar()
    Application.CommandBars(TOOLBARNAME).Delete
End Sub

OriginalL'auteur Mike Woodhouse