WordVBA RibbonX回调问题 【已解决，见8楼】

loquat

没明白为什么？为什么不能实现显示和隐藏呢。

1. <?xml version="1.0" encoding="utf-8" ?>
   
2. <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
   
3.    onLoad="R_OnLoad" >
   
4.    <ribbon startFromScratch="false">
   
5.       <tabs>
   
6.          <tab id="tab1" label="Hide Built-In Tab Demo" >
   
7.              <group id="group1" label="Demo Group">
   
8.                 <toggleButton id="togglebutton1"
   
9.                     imageMso="AcceptInvitation"
   
10.                     label="Hide Home Tab"
    
11.                     onAction="flipHomeTab"
    
12.                     getPressed="buttonPressed" />
    
13.              </group>
    
14.           </tab>
    
15.           <tab idMso="TabHome" getVisible="showHomeTab" />
    
16.        </tabs>
    
17.    </ribbon>
    
18. </customUI>
    
19.    

复制代码

1. Private myRibbon As IRibbonUI
   
2. Private showHomeTabBool As Boolean
   
3. showHomeTabBool = True
   
4. Public Sub R_OnLoad(ribbon As IRibbonUI)
   
5.     myRibbon = ribbon
   
6. End Sub
   
7. Public Sub flipHomeTab(ByVal control As IRibbonControl, ByVal flip As Boolean)
   
8.     showHomeTabBool = flip
   
9.     myRibbon.Invalidate
   
10. End Sub
    
11. Public Function buttonPressed(ByVal control As IRibbonControl) As Boolean
    
12.     buttonPressed = showHomeTabBool
    
13. End Function
    
14. Public Function showHomeTab(ByVal control As IRibbonControl) As Boolean
    
15.     showHomeTab = Not showHomeTabBool
    
16. End Function

复制代码

loquat

加一问，参考大全一书中写：

1. (3) 在MSDN站点上有两个有价值的文件可以利用。第一个文件包含Excel所有内置的选项卡、组和控件的名称列表

复制代码

MSDN上这个文件在哪里下载？

jsxjd

上面的 XML 和下面的事件处理怎么衔接的？

loquat

jsxjd 发表于 2013-7-26 20:38
上面的 XML 和下面的事件处理怎么衔接的？

我就是不懂怎么衔接。
http://msdn.microsoft.com/en-us/library/office/bb421511(v=office.12).aspx
http://msdn.microsoft.com/en-us/library/office/ee633442(v=office.12).aspx
然后还有山菊花老师那片细品RibbbonX里面也有说明。


这个是别人写的DLL实例，感觉很实用。就是RibbonX的回调。
功能区选项卡、组、控件的显、隐、禁用.rar (25.85 KB, 下载次数: 166)

2013-7-26 20:55 上传

点击文件名下载附件

tomyi

onAction="flipHomeTab"

onAction=VBA函数名称，系统会自动调用该函数。

loquat

我感觉应该就是这样了，但是还是不行。。。

1. <?xml version="1.0" encoding="utf-8" ?>
   
2. <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="R_OnLoad" >
   
3. <ribbon startFromScratch="false">
   
4. <tabs>
   
5.     <tab id="tab1" label="隐藏开始" >
   
6.         <group id="group1" label="测试">
   
7.             <button id="btn1" label="显示" imageMso="HappyFace"  onAction="ShowTab" />
   
8.                         <button id="btn2" label="隐藏" imageMso="HappyFace"  onAction="HideTab" />
   
9.         </group>
   
10.         </tab>
    
11.         <tab idMso="TabHome" getVisible="ShowHideTab" />
    
12. </tabs>
    
13. </ribbon>
    
14. </customUI>

复制代码

1. Dim aRibbon As IRibbonUI
   
2. Dim bool As Boolean
   
3. Sub R_OnLoad(ribbon As IRibbonUI)
   
4.         Set aRibbon = ribbon
   
5. End Sub
   
6. Public Sub ShowTab()
   
7.         bool = True
   
8.         aRibbon.Invalidate()
   
9. End Sub
   
10. Public Sub HideTab()
    
11.         bool = False
    
12.         aRibbon.Invalidate()
    
13. End Sub
    
14. Public Sub ShowHideTab(control As IRibbonControl, ByRef returnedVal)
    
15.         returnedVal = bool
    
16. End Sub

复制代码

tomyi

看看这个吧，在Excel中使用Ribbon,Word应该是一样的。
使用Open XML 格式文件手动自定义Excel2007功能区UI.rar

使用Open XML 格式文件手动自定义Excel2007功能区UI实例文件.rar

或者看看这个贴子;自定义RibbonX Excel2007 菜单栏

loquat

已解决，代码入下。

1. <?xml version="1.0" encoding="utf-8" ?>
   
2. <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="R_OnLoad" >
   
3. <ribbon startFromScratch="false">
   
4. <tabs>
   
5.     <tab id="tab1" label="隐藏开始" >
   
6.         <group id="group1" label="测试">
   
7.             <button id="btn1" label="显示" imageMso="AcceptInvitation"  onAction="ShowTab" />
   
8.             <button id="btn2" label="隐藏" imageMso="DeclineInvitation"  onAction="HideTab" />
   
9.         </group>
   
10.         </tab>
    
11.         <tab idMso="TabHome" getVisible="ShowHideTab" />
    
12. </tabs>
    
13. </ribbon>
    
14. </customUI>

复制代码

1. Public aRibbon As IRibbonUI
   
2. Public bool As Boolean
   
3. Sub R_OnLoad(ribbon As IRibbonUI)
   
4.         Set aRibbon = ribbon
   
5. End Sub
   
6. Public Sub ShowTab(control As IRibbonControl)
   
7.         bool = True
   
8.         aRibbon.Invalidate
   
9. End Sub
   
10. Public Sub HideTab(control As IRibbonControl)
    
11.         bool = False
    
12.         aRibbon.Invalidate
    
13. End Sub
    
14. Public Sub ShowHideTab(control As IRibbonControl, ByRef returnedVal)
    
15.         returnedVal = bool
    
16. End Sub

复制代码

1. Private Sub Document_Open()
   
2.     bool = True
   
3. End Sub

复制代码

loquat

tomyi 发表于 2013-7-26 21:09
看看这个吧，在Excel中使用Ribbon,Word应该是一样的。
使用Open XML 格式文件手动自定义Excel2007功能区UI ...

我想您是误会我的意思了。请看8楼实例。显示和隐藏“开始”选项卡。
不过仍然感谢您帮助解决问题。

loquat

勉强算是解决了自己提的问题。
现在打开文档，选项卡默认就被隐藏了。应该默认不隐藏才对吧。不知道要怎么修改。