Ribbon-Leiste Laufzeitfehler 91

Hallo Profis,
brauche bei dem folgenden Problem eure Hilfe.
Ich habe mir in einer Datei eine Ribbon-Leiste mit drei Button erstellt. Beim Start der Datei werden Button 1 und 3 aktiviert und Button 2 deaktiviert. Soweit so gut, klappt auch. Nun soll Button 2 aktiviert werden, wenn Button 1 angeklickt wurde. In einem Beitrag aus 2015 (von Rene) habe ich dazu einen passenden Code gefunden und auf meine Datei angepasst. Und genau da beginnt das Problem. Beim Anklicken von Button 1 erscheint immer der Laufzeitfehler 91 an der Position "objRibbon.Invalidate". Nur warum weiß ich nicht. Da brauche ich euren Rat.
Der Code lautet wie folgt:
Option Explicit
Public objRibbon As IRibbonUI
Public btnSpeichernundExportieren As Boolean
Public btnExportinPDF As Boolean
Public btnSchließenohneSpeichern As Boolean


Public Sub onload(ribbon As IRibbonUI)
Set objRibbon = ribbon
End Sub

'-----------------------------
'** B1.0
'** Schaltfläche: ID= But1
'-----------------------------


Public Sub onAction_Speichern_und_Exportieren(control As IRibbonControl)
btnSpeichernundExportieren = True
objRibbon.Invalidate
'Speichern_und_Exportieren   '** B1.1 Prozedur in Modul 2
End Sub


Public Sub getEnabled_Speichern_und_Exportieren(control As IRibbonControl, ByRef enabled)
If btnSpeichernundExportieren Then enabled = True
End Sub

'-----------------------------
'** B2.0
'** Schaltfläche: ID= But2
'-----------------------------


Public Sub onAction_Export_in_PDF(control As IRibbonControl)
btnExportinPDF = True
objRibbon.Invalidate
'PDF_Export                  '** B2.1 Prozedur in Modul 2
End Sub


Public Sub getEnabled_Export_in_pdf(control As IRibbonControl, ByRef enabled)
If btnExportinPDF Then enabled = True
End Sub

'-----------------------------
'** B3.0
'** Schaltfläche: ID= But3
'-----------------------------


Public Sub onAction_Schließen_ohne_Speichern(control As IRibbonControl)
btnSchließenohneSpeichern = True
objRibbon.Invalidate
'Schließen_ohne_Speichern    '** B3.1 Prozedur in Modul 2
End Sub


Public Sub getEnabled_Schließen_ohne_Speichern(control As IRibbonControl, ByRef enabled)
If btnSchließenohneSpeichern Then enabled = True
End Sub

Danke im Voraus
Gruß
Dirk

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Option Private Module #If Win64 Then Public Declare PtrSafe Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" ( _ ByRef destination As Any, _ ByRef source As Any, _ ByVal length As Long) #Else Public Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" ( _ ByRef destination As Any, _ ByRef source As Any, _ ByVal length As Long) #End If Private Const RIBBON_NAME = "Ribbon" Public gobjRibbon As IRibbonUI Private Sub onLoad(ByRef probjRibbon As IRibbonUI) Set gobjRibbon = probjRibbon ThisWorkbook.Names.Add Name:=RIBBON_NAME, RefersTo:=CStr(ObjPtr(probjRibbon)), Visible:=False End Sub #If Win64 Then Private Function GetRibbon(ByVal pvlngRibbonPointer As LongPtr) As IRibbonUI #Else Private Function GetRibbon(ByVal pvlngRibbonPointer As Long) As IRibbonUI #End If Dim objRibbon As IRibbonUI Call CopyMemory(objRibbon, pvlngRibbonPointer, LenB(pvlngRibbonPointer)) Set GetRibbon = objRibbon Set objRibbon = Nothing End Function Public Sub RefreshRibbon(Optional ByVal opvvntControlID As Variant) Dim objName As Name If gobjRibbon Is Nothing Then For Each objName In ThisWorkbook.Names If objName.Name = RIBBON_NAME Then #If VBA7 Then Set gobjRibbon = GetRibbon(CLngPtr(Mid$(objName.RefersTo, 2))) #Else Set gobjRibbon = GetRibbon(CLng(Mid$(objName.RefersTo, 2))) #End If Exit For End If Next Set objName = Nothing If IsMissing(opvvntControlID) Then Call gobjRibbon.Invalidate Else Call gobjRibbon.InvalidateControl(ControlID:=opvvntControlID) End If Else If IsMissing(opvvntControlID) Then Call gobjRibbon.Invalidate Else Call gobjRibbon.InvalidateControl(ControlID:=opvvntControlID) End If End If End Sub

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread