ich versuche seit geraumer Zeit den Button für die Seitenansicht abzufangen.
Workbook_BeforePrint reagiert ja bekanntlich auch auf das Drucken- Ereignis,
daher kann ich dies nicht gebrauchen.
Vielleicht kann mir einer weiterhelfen und mir den Fehler im Code aufzeigen.
kommt als Code in DieseArbeitsmappe
Option Explicit
Private Sub Workbook_Activate()
Call Tabelle1.Initialize_Class
End Sub
Private Sub Workbook_Deactivate()
Call Tabelle1.Terminate_Class
End Sub
kommt als Code in Tabelle1
Option Explicit
Private WithEvents objComBarButton As clsClass1
'_____________________________________________
'|ID Control | Index Control | Caption Control|
'|109 | 7 | Seitenansicht |
'______________________________________________
Friend Sub Initialize_Class()
Set objComBarButton = Nothing
Set objComBarButton = New clsClass1
Set objComBarButton.Set_CommandBarButton1 = CommandBars.FindControl(ID:=109)
End Sub
Friend Sub Terminate_Class()
Set objComBarButton = Nothing
End Sub
kommt als Code in clsClass1
Option Explicit
Public Event Click(blnValue As Boolean)
Private WithEvents mobComBarButton1 As CommandBarButton
Friend Property Set Set_CommandBarButton1(objCommandBarButton As CommandBarButton)
Set mobComBarButton1 = objCommandBarButton
End Property
Private Sub mobComBarButton1_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
RaiseEvent Click(Ctrl.State = msoButtonUp)
CancelDefault = True
MsgBox "Bin hier!"
End Sub
Danke!
Gruß Tino