Callback for Toogle Button-Click, without return of any values.
Sample Ribbon XML file:
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="CallbackOnLoad"> <ribbon startFromScratch="false"> <tabs> <tab id="Toogle Button Demo" label="Toogle Button Demo"> <group id="MyGroup" label="Toogle Button Demo"> <button id="MyButton" label="I ;-)" image="myImage.JPG" size="large" getEnabled="CallbackGetEnabled"/> <toggleButton id="MyToggleButton1" size="large" label="Toggle Button (An/Aus)" imageMso="HappyFace" onAction="MyToggleButtonCallbackOnAction"/> </group> </tab> </tabs> </ribbon> </customUI>
Function to be copied to a standard module:
Sub MyToggleButtonCallbackOnAction(control As IRibbonControl, _ pressed As Boolean) ' Callback onAction bolEnabled = pressed gobjRibbon.InvalidateControl "MyButton" End Sub
You can find this sample in Sample DB 2