Excel und VBA: Formeln, Programmierung, Lösungen

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