用VB6.0制作Excel2010功能区COM加载项及自定义图标

tclnxc

先顶一下，谢谢

dljyh2009

好东西，收了

dljyh2009

Implements IRibbonExtensibility 这句提示用户类型没有定义

dljyh2009

Public Function GetRibbonXML() As String
    Dim sRibbonXML As String
    sRibbonXML = "<customUI xmlns=""http://schemas.microsoft.com/office/2006/01/customui"" >" & _
                  "<ribbon startFromScratch=""false"">" & _
                   "<tabs>" & _
                    "<tab id=""henrylam"" label=""我的工具"">" & _
                     "<group id=""test"" label=""测试"">" & _
                      "<button id=""Button1"" label=""测试内置图标"" size=""large"" imageMso=""HappyFace"" onAction=""test1"" />" & _
                      "<button id=""Button2"" label=""测试自定义图标"" size=""large"" getImage=""GetImage"" onAction=""test2"" />" & _
                     "</group >" & _
"<group id=""test"" label=""测试"">" & _
                      "<button id=""Button1"" label=""测试内置图标"" size=""large"" imageMso=""HappyFace"" onAction=""test1"" />" & _
                      "<button id=""Button2"" label=""测试自定义图标"" size=""large"" getImage=""GetImage"" onAction=""test2"" />" & _
                     "</group >" & _
                     "<group id=""ExcelHome"" label=""ExcelHome"">" & _
                      "<button id=""Button3"" label=""访问论坛"" size=""large"" getImage=""GetImage"" onAction=""test3"" />" & _
                     "</group >" & _
                    "</tab>" & _
                   "</tabs>" & _
                  "</ribbon>" & _
                 "</customUI>"
    GetRibbonXML = sRibbonXML
   End Function


我多复印几个，提示：行的继续标志太多

dljyh2009

VB限制续行符这个问题怎么解决的，谁能指点一下

雅林源居

这个简单用解决
sRibbonXML=sRibbonXML&"",后面的&_删除
即可代替&_

ahh0511

踩一脚，谢谢分享

资料更新中…

dljyh2009 发表于 2014-5-8 17:44
Public Function GetRibbonXML() As String
    Dim sRibbonXML As String
    sRibbonXML = "" & _

我也遇到了，网上说拆分，我拆了，还是报错，不知道你怎么解决的

mansohu

请问,getImage的回调函数能否不用资源文件,能写在 connect 中吗?谢谢!

带劲儿

呵呵 一般 xml字数有上限的测试过吗？