|
VBA代码:
- Public objRib As IRibbonUI
- Sub RibbonOnLoaded(ribbon As IRibbonUI)
- Set objRib = ribbon
- End Sub
- Sub bCheck(control As IRibbonControl, ByRef returnedVal)
- returnedVal = False
- End Sub
- 'Callback for Button1 onAction
- Sub qiehuan_1(control As IRibbonControl, pressed As Boolean)
- If pressed = True Then
- Sheet1.Activate
- objRib.InvalidateControl "Button2"
- End If
-
- End Sub'Callback for Button2 onAction
- Sub qiehuan_2(control As IRibbonControl, pressed As Boolean)
- If pressed = True Then
- Sheet2.Activate
- objRib.InvalidateControl "Button1"
- End If
- End Sub
-
复制代码 xml代码:
- <customUI onLoad="RibbonOnLoaded" xmlns="http://schemas.microsoft.com/office/2006/01/customui">
- <ribbon startFromScratch="false">
- <tabs>
- <tab id="tab1" label="切换按钮测试">
- <group id="Group1" label="组A">
- <toggleButton id="Button1" label="切换按钮1" imageMso="HappyFace" size="large" onAction="qiehuan_1" getPressed="bCheck"/>
- </group>
- <group id="Group2" label="组B">
- <toggleButton id="Button2" label="切换按钮2" imageMso="HappyFace" size="large" onAction="qiehuan_2" getPressed="bCheck"/>
- </group>
- </tab>
- </tabs>
- </ribbon>
- </customUI>
复制代码
|
|