Option
Private
Module
Option
Explicit
Public
objRibbon
As
IRibbonUI
Public
Sub
onLoad_Uwe(ribbon
As
IRibbonUI)
Set
objRibbon = ribbon
End
Sub
Public
Sub
onAction_Button1(control
As
IRibbonControl)
MsgBox
"Button "
& control.ID &
" gedrückt"
, 64,
"Hinweis"
End
Sub
Public
Sub
onAction_Button2(control
As
IRibbonControl)
MsgBox
"Button "
& control.ID &
" gedrückt"
, 64,
"Hinweis"
End
Sub
Public
Sub
getVisible_Button1(control
As
IRibbonControl,
ByRef
returnValue)
If
Tabelle1.Cells(1, 1) =
"Gelb"
Then
returnValue =
True
Else
returnValue =
False
End
If
End
Sub
Public
Sub
getVisible_Button2(control
As
IRibbonControl,
ByRef
returnValue)
If
Tabelle1.Cells(1, 1) =
"Rot"
Then
returnValue =
True
Else
returnValue =
False
End
If
End
Sub