Menüband

[IchDödl]

Hallo mumpel
dein RibbonX-Workshop half mir unbedarften VBA-User in vielerlei Hinsicht. Das Beispiel zum Thema "Icons zur Laufzeit ändern" funktioniert jedoch nicht mit mehreren Icons. Ich habe folgende Abwandlung und es kommt dabei immer zur Fehlermeldung: "Dieses Argument ist nicht optional". Wor liegt mein Fehler?

Code:

Option Explicit
Public objRibbon As IRibbonUI
Public bolS1 As Boolean
Public bolS2 As Boolean

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

Sub onAction_1(control As IRibbonControl, ByRef hallo)
  If hallo = True Then
     bolS1 = True
     Columns("B:C").EntireColumn.Hidden = True
     MsgBox "aus"
  Else
     bolS1 = False
          Columns("B:C").EntireColumn.Hidden = False
     MsgBox "ein"
  End If
objRibbon.Invalidate

End Sub

Public Sub getLabel_1(control As IRibbonControl, ByRef label)
 If bolS1 Then
    label = "aus"
 Else
    label = "ein"
 End If
End Sub

Public Sub getImage_1(control As IRibbonControl, ByRef image)
 If bolS1 Then
    image = "AutoDial"
 Else
    image = "HappyFace"
 End If
End Sub
Sub onAction_2(control As IRibbonControl, ByRef pressed)
  If pressed = True Then
     bolS2 = True
     Columns("D:F").EntireColumn.Hidden = True
     MsgBox "aus"
  Else
     bolS1 = False
          Columns("D:F").EntireColumn.Hidden = False
     MsgBox "ein"
  End If
objRibbon.Invalidate

End Sub

Public Sub getLabel_2(control As IRibbonControl, ByRef label2)
 If bolS2 Then
    label2 = "aus"
 Else
    label2 = "ein"
 End If
End Sub

Public Sub getImage_2(control As IRibbonControl, ByRef image2)

 If bolS2 Then
    image2 = "GotoSolution"
 Else
    image2 = "NameManager"
 End If
End Sub

Für deinen Blick schon im Voraus ein Dankeschön