Excel 聚光灯（GDI实现)

frefs · 发表于 2014-6-19 18:58

本帖最后由 frefs 于 2014-6-21 22:01 编辑

不错不错！！！

frefs · 发表于 2014-6-22 19:30

本帖最后由 frefs 于 2014-6-23 19:47 编辑

怎么写的？

opel-wong · 发表于 2014-6-23 13:23

frefs 发表于 2014-6-22 19:30
这种弹出式菜单代码怎么写的，在论坛找了半天没找到？

搜索：RibbonX

frefs · 发表于 2014-6-23 21:32

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="""" label="""">" & _
               "<group id="""" label="""">" & _
               "<menu id="""" label=""""  size=""large"" imageMso=""HappyFace"">" & _
               "<menuSeparator id="""" title="""" />" & _
               "<button id=""Button1"" label="""" imageMso=""HappyFace"" onAction=""test1"" />" & _
               "<button id=""Button2"" label="""" imageMso=""HappyFace"" onAction=""test2"" />" & _
               "<button id=""Button3"" label="""" imageMso=""HappyFace"" onAction=""test3"" />" & _
               "<button id=""Button4"" label="""" imageMso=""HappyFace"" onAction=""test4"" />" & _
               "<button id=""Button5"" label="""" imageMso=""HappyFace"" onAction=""test5"" />" & _
               "<button id=""Button6"" label="""" imageMso=""HappyFace"" onAction=""test6"" />" & _
               "<button id=""Button7"" label="""" imageMso=""HappyFace"" onAction=""test7"" />" & _
               "<button id=""Button8"" label="""" imageMso=""HappyFace"" onAction=""test8"" />" & _
               "</menu>" & _
               "</group>" & _
               "</tab>" & _
               "</tabs>" & _
               "</ribbon>" & _
               "</customUI>"
GetRibbonXML = sRibbonXML
End Function

frefs · 发表于 2014-6-23 21:43

http://www.excelperfect.com/index.php/2009/10/23/ribbonxstudy27/
http://www.excelperfect.com/index.php/2009/11/12/ribbonxstudy34/

frefs · 发表于 2014-6-24 20:02

本帖最后由 frefs 于 2014-6-25 00:01 编辑

不错！！！

frefs · 发表于 2014-6-29 20:06

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<ribbon>
<tabs>
<tab idMso="TabView" visible="true">
<group id="GroupTwo" visible="true" label="聚光灯" insertBeforeMso="GroupZoom">
<menu id="menuTwo" label="Spotlight" size="large" itemSize="large" visible="true" enabled="true" getImage="GetJGD">
<menu id="ButtonTowA" label="开启聚光灯" itemSize="large" visible="true" enabled="true" getImage="GetJGD">
<button id="ButtonTowA1" label="行" getImage="GetJGD" onAction="cHang"/>
<button id="ButtonTowA2" label="列" getImage="GetJGD" onAction="cLie"/>
<button id="ButtonTowA3" label="行+列" getImage="GetJGD" onAction="HangLie"/>
</menu>
<button id="ButtonTowB" label="关闭取光灯" getImage="GetJGD" onAction="Jclose"/>
<menuSeparator id="rxmSep01"/>
<button id="ButtonTowC" label="颜色选择" getImage="GetJGD" onAction="Jcolor"/>
</menu>
</group>
</tab>
</tabs>
</ribbon>
</customUI>

booger · 发表于 2014-7-29 11:19

2013可以用么

opel-wong · 发表于 2014-11-5 14:44

booger 发表于 2014-7-29 11:19
2013可以用么

2013,不可以用.

只适用于Excel2003/2007/2010.

.

莫后数据 · 发表于 2014-11-29 13:13

opel-wong 发表于 2014-11-5 14:44
2013,不可以用.

只适用于Excel2003/2007/2010.

有源码学习一哈就好了。或者相关资料。

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

[原创] Excel 聚光灯（GDI实现)

点评