Custom UI Editor 如何创建互斥的切换按钮？

对着天空画圈圈 · 发表于 2014-12-29 22:58

本帖最后由对着天空画圈圈于 2014-12-30 23:36 编辑

通过Custom UI Editor For Microsoft Office制作两个切换按钮，点击两个按钮会出现同时被按下的情况，
如何实现：当按下“切换按钮1”时，切换到Sheet1，同时，按钮2的pressed状态变为false；
当按下“切换按钮2”时，切换到Sheet2，同时，按钮1的pressed状态变为false。

PS：两个按钮在不同的组里

如何通过切换按钮切换工作表.zip (13.24 KB, 下载次数: 121)

wpxxsyzx · 发表于 2014-12-30 14:44

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>

复制代码

wpxxsyzx · 发表于 2014-12-30 14:45

测试附件：

对着天空画圈圈 · 发表于 2014-12-30 23:34

wpxxsyzx 发表于 2014-12-30 14:44
VBA代码：
xml代码：

受教了，感谢！！！

02761752696 · 发表于 2017-9-4 08:15

谢谢分享

懒林笑笑生 · 发表于 2019-11-17 14:34

求教一下这个如何让图标改为小图标？？size属性怎么写？？small？？但是我改了调不出来啊

wxxydl · 发表于 2019-11-17 14:51

懒林笑笑生发表于 2019-11-17 14:34
求教一下这个如何让图标改为小图标？？size属性怎么写？？small？？但是我改了调不出来啊

默认是小图标 size="large" 删除就可

hillhsE · 发表于 2020-12-28 13:50

本帖最后由 hillhsE 于 2020-12-28 13:52 编辑

这就能解决

yzxfelix · 发表于 2022-6-26 19:23

现在新一轮的好东西出现啦

7176386 · 发表于 2023-2-16 15:55

学习了，太强大了。

		自动登录	找回密码
密码			免费注册

[已解决] Custom UI Editor 如何创建互斥的切换按钮？