Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Benutzerdefiniertes Symbol in neue Symbolleiste einfügen

Gruppe

Button

Problem

Wie kann ich in eine neue Symbolleiste ein benutzerdefiniertes Symbol einfügen?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   On Error Resume Next
   Application.CommandBars("Help").Controls( _
      "DejaNews-Abfrage").Delete
   On Error GoTo 0
End Sub

Bitte anpassen

Private Sub Workbook_Open()
   Dim oBtn As CommandBarButton
   On Error GoTo ERRORHANDLER
   Set oBtn = Application.CommandBars("Help").Controls.Add( _
      Type:=msoControlButton)
   With oBtn
      .BeginGroup = True
      .OnAction = "Start"
      .Caption = "DejaNews-Abfrage"
      Application.CommandBars("hwh-standard").Controls(11).CopyFace
      .PasteFace
   End With
ERRORHANDLER:
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Menue und Button