Office: [Word 365] CustomUI Ribbon – getVisible Callback gibt Fehler "Falsche Anzahl von Argumenten"

Hallo zusammen,

ich habe in Word 365 ein benutzerdefiniertes Ribbon über den CustomUI Editor erstellt. Ein Button soll nur für einen bestimmten User sichtbar sein, gesteuert über den getVisible-Callback. Der erste Button (AktionAlle) funktioniert einwandfrei, aber sobald ich auf den Tab klicke, erhalte ich den Fehler:

Falsche Anzahl von Argumenten oder ungültige Eigenschaftszuweisung

Mein XML:

xml
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Ribbon_OnLoad">
<ribbon>
<tabs>
<tab id="tabCustom" label="Mein Tab">
<group id="grpAktionen" label="Aktionen">
<button id="btnAlle"
label="Aktion Alle"
size="large"
imageMso="HappyFace"
onAction="AktionAlle"/>
<button id="btnAdmin"
label="Aktion Admin"
size="large"
imageMso="Shield"
onAction="AktionAdmin"
getVisible="IstAdminUser"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>

Mein VBA-Code (in einem Standardmodul):

vba
Option Explicit
Public gRibbon As IRibbonUI
Public Sub Ribbon_OnLoad(ByVal ribbon As IRibbonUI)
Set gRibbon = ribbon
End Sub
Public Function IstAdminUser(ByVal control As IRibbonControl) As Boolean
IstAdminUser = (LCase$(Environ$("USERNAME")) = "admin")
End Function
Public Sub AktionAlle(ByVal control As IRibbonControl)
MsgBox "Dieser Button ist für alle sichtbar.", vbInformation
End Sub
Public Sub AktionAdmin(ByVal control As IRibbonControl)
If LCase$(Environ$("USERNAME")) <> "admin" Then
MsgBox "Keine Berechtigung.", vbCritical
Exit Sub
End If
MsgBox "Admin-Funktion ausgeführt.", vbInformation
End Sub

Was ich bereits versucht habe:

• Attribute im XML auf korrekte Kleinschreibung geprüft (label, size, onAction)
• Callback-Signaturen mit ByVal und IRibbonControl versehen
• IRibbonControl durch Object ersetzt
• Code in ThisDocument verschoben statt in ein Standardmodul
• Microsoft Office Object Library unter Extras → Verweise eingebunden

Der Fehler tritt immer genau dann auf, wenn ich auf den Tab klicke. AktionAlle funktioniert dabei problemlos.

Hat jemand eine Idee, woran das liegen könnte? Ist getVisible in Word 365 anders zu behandeln als in Excel?

Danke im Voraus!

lg Alex

 

Hallo Alex,

die Signatur stimmt nicht. Hier die standard Signature:

Code:

Public Sub GetButtonVisible(control As IRibbonControl, ByRef returnedVal)

Knobbi38

 

Lieber Knobbi!

Das hat wunderbar funktioniert!
Vielen, vielen Dank!

lg Alex