Selection.Name = "picSmily"

Option Explicit

Private Const mc_CBAR_NAME      As String = "VB-fun-Symbolleiste_2"
Private Const mc_ICON_SHEETNAME As String = "CBarPictures"

Private Sub Workbook_Open()
  Call CreateCommandBar
  ThisWorkbook.Saved = True
End Sub

Private Sub CreateCommandBar()
  Dim objCBar     As Office.CommandBar
  Dim objCBBtn    As Office.CommandBarButton

  Dim i           As Integer
  Dim objWks      As Worksheet

  Call DeleteCommandBar

  On Error GoTo err_CreateCommandBar
  Set objCBar = Application.CommandBars.Add( _
        Name:=mc_CBAR_NAME, Temporary:=True)

  With objCBar
   .Visible = True
   .Position = msoBarTop
   .Protection = msoBarNoCustomize
  End With

  For i = 1 To 3
    objCBar.Controls.Add Type:=msoControlButton
    With objCBar.Controls(i)
      .Style = msoButtonIcon
      .Tag = gc_CBARBTN_TAG & CStr(i)
      .OnAction = "MyOnActionMacro"
    End With
  Next

  Set objWks = ThisWorkbook.Worksheets(mc_ICON_SHEETNAME)

  objWks.Shapes("picSmilyHappy").CopyPicture
  objCBar.Controls(1).PasteFace

  objWks.Shapes("picSmilyWink").CopyPicture
  objCBar.Controls(2).PasteFace

  objWks.Shapes("picThumbUp").CopyPicture
  With objCBar.Controls(3)
    .Style = msoButtonIconAndCaption
    .Caption = "Geschafft !"
    .PasteFace
    .BeginGroup = True
  End With

exit_Sub:
  On Error Resume Next
  Set objWks = Nothing
  Set objCBBtn = Nothing
  Set objCBar = Nothing

  On Error GoTo 0
  Exit Sub

err_CreateCommandBar:
  MsgBox "Es ist ein Fehler bei der Erstellung der neuen" & _
        vbCrLf & "Symbolleiste aufgetreten !", vbExclamation, _
        Title:="Fehler beim Erstellen der Symbolleiste"
  Call DeleteCommandBar
  Resume exit_Sub
End Sub

Private Sub DeleteCommandBar()
  On Error Resume Next
  Application.CommandBars(mc_CBAR_NAME).Delete
  On Error GoTo 0
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window)
  Call EnableCommandBar(True)
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)
  Call EnableCommandBar(False)
End Sub

Private Sub EnableCommandBar(ByVal Enabled As Boolean)
  On Error Resume Next
  Application.CommandBars(mc_CBAR_NAME).Enabled = Enabled
  On Error GoTo 0
End Sub

Option Explicit
Public Const gc_CBARBTN_TAG As String = "MyButton"

Public Sub MyOnActionMacro()
  If Not Application.CommandBars.ActionControl Is Nothing Then
    Select Case Application.CommandBars.ActionControl.Tag
      Case gc_CBARBTN_TAG & "1"
        MsgBox "Du hast die 1. neue Schaltfläche geklickt!", _
                vbOKOnly + vbInformation, Title:="VB-fun-Demo"

      Case gc_CBARBTN_TAG & "2"
        MsgBox "Du hast die 2. neue Schaltfläche geklickt!", _
                vbOKOnly + vbInformation, Title:="VB-fun-Demo"

      Case gc_CBARBTN_TAG & "3"
        MsgBox "Du hast die 3. neue Schaltfläche geklickt!", _
                vbOKOnly + vbInformation, Title:="VB-fun-Demo"

      Case Else
    End Select
  End If
End Sub