作者：绿色风
分类：
时间：2022-08-18
浏览：92
楼主
wqfzqgk |
 动态右键菜单.rar
- ub 连接(control As IRibbonControl, ByRef returnedVal)
- Dim xml As String
- If ActiveCell.HasFormula = True Then
- xml = "<menu xmlns=""http://schemas.microsoft.com/office/2009/07/customui"">" & _
- "<button id=""but1"" imageMso=""Help"" label=""公式单元格"" onAction=""公式单元格""/>" & _
- "</menu>"
- Else
- If IsNumeric(ActiveCell.Value) Then
- If IsEmpty(ActiveCell) Then
- xml = "<menu xmlns=""http://schemas.microsoft.com/office/2009/07/customui"">" & _
- "<button id=""but1"" imageMso=""Help"" label=""空单元格"" onAction=""空单元格""/>" & _
- "</menu>"
- Else
-
- xml = "<menu xmlns=""http://schemas.microsoft.com/office/2009/07/customui"">" & _
- "<button id=""but1"" imageMso=""Help"" label=""数字单元格"" onAction=""数字单元格""/>" & _
- "</menu>"
- End If
- Else
-
- xml = "<menu xmlns=""http://schemas.microsoft.com/office/2009/07/customui"">" & _
- "<button id=""but1"" imageMso=""Help"" label=""文本单元格"" onAction=""文本单元格""/>" & _
- "</menu>"
- End If
- End If
- returnedVal = xml
- End Sub
- Sub 公式单元格(control As IRibbonControl)
- MsgBox "这是一个公式单元格"
- End Sub
- Sub 空单元格(control As IRibbonControl)
- MsgBox "空单元格"
- End Sub
- Sub 数字单元格(control As IRibbonControl)
- MsgBox "数字单元格"
- End Sub
- Sub 文本单元格(control As IRibbonControl)
- MsgBox "文本单元格"
- End Sub
另：
1）word、excel修改XML再用winrar添加一般没有问题。
2）PPT的函数可以无需参数，也可以有参数，上面两个都要。
3）PPT的2007版，命名空间为2006/01，而2010版为2009/07
4）PPT的2007用customUI，2010用customUI14
5)PPT2007中订制的界面，在2010中可见。当2010没用customUI14时，会引用customUI
6）同上，可以引用customUI的界面，便是ONaction仍然出错。
7）PPT的压缩格式必须保持不变，或采用归档（不压缩），否则onACtion出错。（最重要的一点）
8）第七点的情况在在2010下出现，在2007下不出现。
9）UTF-8稍提一下，当使用中文，但用的是ANSI时，不会出错，但是界面不显示。 |
2楼
wqfzqgk |
因这里基本不讨论PPT，PPT的RIBBON例子就不上传了 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一