ToggleButton - onAction

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