<EXCEL2003>自定义菜单栏图标

doryan

在VS中制作一个Excel外接程序 我们希望有一个独特的图标显示在菜单栏

比如个人的头像之类的

这在EXCEL2007及以上版本 因为有RibbonX可以很方便的完成

但是EXCEL2003是没有RibbonX的

那是否EXCEL2003就无法自定义了呢？

这里不才提供一个实现的方法^^（VB.NET）

首先在VS中新建一个EXCEL2003外接程序，代码如下

1. Imports Microsoft.Office.Core
   
2. Public Class ThisAddIn
   
3.     Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
   
4.         ' VSTO 生成代码的开始
   
5.         Me.Application = CType(Microsoft.Office.Tools.Excel.ExcelLocale1033Proxy.Wrap(GetType(Excel.Application), Me.Application), Excel.Application)
   
6.         Dim bar As CommandBarControl
   
7.         Dim flag As Boolean
   
8.         Dim temp As New convertipic("{4C599241-6926-101B-9992-00000B65C6F9}")      '这个是Microsoft Forms 2.0 Image控件对应的CLSID
   
9.         Dim ipic As stdole.IPictureDisp
   
10.         ipic = temp.transp(My.Resources.icon)
    
11.         For Each bar In Me.Application.CommandBars("Worksheet Menu Bar").Controls
    
12.             If bar.Parameter = "ExportComp" Then bar.Delete()
    
13.         Next
    
14.         If Not flag Then
    
15.             cusbtn.btn = Me.Application.CommandBars("Worksheet Menu Bar").Controls.Add(Office.MsoControlType.msoControlButton, , "ExportComp", Temporary:=True)
    
16.             With cusbtn
    
17.                 .btn.Picture = ipic
    
18.             End With
    
19.         End If
    
20.         ipic = Nothing
    
21.     End Sub
    
22.     Private Sub ThisAddIn_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
    
23. 
    
24.     End Sub
    
25. End Class

复制代码

在菜单栏中选择  项目 - <项目名>属性

选择资源选项卡，点击添加资源，添加现有文件，然后选择你需要制作成图标的文件（这也是VS中嵌入资源文件的通用方法），本例中请将其命名为 icon

新建一个名为 clsbtn 的类模块 代码如下：

1. Public Class clsbtn
   
2.     Public WithEvents btn As Microsoft.Office.Core.CommandBarButton
   
3.     Private Sub btn_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean) Handles btn.Click
   
4.         MsgBox("Hello World")
   
5.     End Sub
   
6. End Class

复制代码

新建一个名为convertipic的类模块 代码如下

1. Public Class convertipic : Inherits System.Windows.Forms.AxHost
   
2.     Sub New(ByVal a As String)
   
3.         MyBase.New(a)
   
4.     End Sub
   
5.     Function transp(ByVal image As System.Drawing.Image) As stdole.IPictureDisp
   
6.         transp = AxHost.GetIPictureDispFromPicture(image)
   
7.     End Function
   
8. End Class

复制代码

新建一个名为 globalvar 的模块 代码如下

1. Module globalvar
   
2.     Public cusbtn As New clsbtn
   
3. End Module

复制代码

然后大功告成^^

主要原理 使用了 CommandBarButton.picture 属性 可接收一个stdole.IPictureDisp接口成员

再利用System.Windows.Forms.AxHost的GetIPictureDispFromPicture方法转换image对象为stdole.IPictureDisp

System.Windows.Forms.AxHost类的作用是 包装 ActiveX 控件，并将其作为功能完全的 Windows 窗体控件进行公开。

附上源文件：

ExportComp.rar (63.51 KB, 下载次数: 128)

2012-11-15 21:34 上传

点击文件名下载附件

lipton

谢谢分享，win7 64 office2010 64 vs2010
重新编译测试通过。

doryan

lipton 发表于 2012-11-15 22:02
谢谢分享，win7 64 office2010 64 vs2010
重新编译测试通过。

感谢测试^^
不过都office2010了 有ribbonx很方便的
我比较念旧而已
一直舍不得2003

wqfzqgk

呵呵，这个老的都掉牙啦{:soso_e144:}

doryan

wqfzqgk 发表于 2012-11-16 13:16
呵呵，这个老的都掉牙啦

03还没完全弄明白呢
跟不上步伐啊....不过楼上已经帮我测试了 2010能用 07估计也没问题啦

开了VSTO板块 好多想法 但是水平有限呐 看过你的文章 觉得比我高多了
做点贡献 写点技术贴啊
比如VSTO常用的.net库
还有VSTO的多线程应用等等
相信大家熟练了就会发现它的强大

wqfzqgk

是可以用的

wpxxsyzx

楼主还是换新版本吧。vs2010中的office开发已经不支持2003了

doryan

wpxxsyzx 发表于 2012-11-16 17:56
楼主还是换新版本吧。vs2010中的office开发已经不支持2003了

我用的VS2008
没办法啊 我们这边03占主导地位啊
我个人也想换的。。。