【VSTO】创建 Excel 2007 AddIn (1. CommandBar 以及如何自定义Icon)

之前写过不少VBA来提高工作效率(比如：批量进行设计书格式化等等)，但到了Office2007上，VBA就风光不再了，由于安全方面的考虑，VBA需要支持启动宏的Excel(扩展名：xlsm)才能使用。MS推出了VSTO(Visual Studio Tools for Office)来取代VBA，当你熟练掌握VSTO，你会发现它要比VBA开发更快捷——有Office AddIn接口支持，”后台”更强大——可以毫无鸭梨使用.net类库而不是VBA类库，对于Office对象模型来说则没有变化，仍然通过COM对象生成.NET托管对象进行操作，另外还支持 Ribbin 风格的控件。呵呵，是时候更新换代用VSTO取代传统的VBA开发了。

 

本文将以一个添加CommandBar示例程序介绍VSTO的开发。首先是开发环境的选择：Office 2007 对应的是 Office 2007 PIA Assemblies, VSTO Runtime V3.0 以上。因为 Windows 7 默认安装了 .net 3.5 sp1，所以这里用 VS2010 .net 3.5 开发 VSTO，另外在 .net 3.5 里，C# 仍然没有可选参数可以用(没有可选参数意味着在调用Office COM对象时要写很多 System.Reflection.Missing.Value)，所以 VB.NET 应该是 .net 3.5 下开发 VSTO 的最佳语言。



工程创建成功后，主要的编码都在 ThisAddIn.vb 里。

 

Public Class ThisAddIn Private Sub ThisAddIn_Startup() Handles Me.Startup End Sub Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown End Sub End Class
查看 ThisAddIn.Designer.vb， 你会发现 Excel Application 这个对象(老熟悉老亲切了)，它是我们能调用到 Workbook, WorkSheet 的关键。
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "10.0.0.0")> _ Friend WithEvents Application As Microsoft.Office.Interop.Excel.Application
ThisAddIn_Startup 会在 AddIn 被 Excel 加载时被调用，因此利用这个事件加载 CommandBar，然后用 AddHandler 为 CommandButton 添加点击的事件处理。(VBA里是通过 Action 属性绑定方法)
Public Class ThisAddIn Private Sub ThisAddIn_Startup() Handles Me.Startup AddCommandBar() End Sub Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown If mCommandBar IsNot Nothing Then mCommandBar.Delete() End If End Sub Private mCommandBar As Office.CommandBar Private Sub AddCommandBar() Try mCommandBar = Application.CommandBars.Add("VSTOSample", Office.MsoBarPosition.msoBarTop, True, False) If mCommandBar IsNot Nothing Then Dim commandBtn As Office.CommandBarButton = mCommandBar.Controls.Add(Office.MsoControlType.msoControlButton) With commandBtn .Caption = "Command Button" .FaceId = 59 .Style = Microsoft.Office.Core.MsoButtonStyle.msoButtonCaption .Visible = True AddHandler .Click, AddressOf CommandBtn_Click End With mCommandBar.Visible = True End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub CommandBtn_Click(control As Office.CommandBarButton, ByRef cancel As Boolean) MsgBox(control.Caption + " Click") End Sub End Class

运行一下： 
 
点击左上角的 Excel 图标 > 再选择右下的 "Excel 选项" > 点选 "加载项"，可以看到 Excel 通过启动时加载 Excel AddIn 的 .vsto 文件来关联 .net 编译的 AddIn dll：
 

回过头来看看这个CommandButton的图标它使用的是 FaceId 显示的是Excel自带的图标，我们希望换成自定义的图像该怎么做？
自定义图标需要使用 CommandButton.Picture 属性，它需要利用 AxHost.GetIPictureDispFromPicture 方法将 Image 转成 Office 对象可用的  stdole.IPictureDisp 对象，但这个方法是 Protected 的，所以这里又做了个类继承与 AxHost，并实现一个静态方法用于转换。 
Friend Class CovertImage : Inherits System.Windows.Forms.AxHost Private Sub New() MyBase.New(Nothing) End Sub Public Shared Function Convert(ByVal img As System.Drawing.Image) As stdole.IPictureDisp Return System.Windows.Forms.AxHost.GetIPictureDispFromPicture(img) End Function End Class

往工程的 Resouces 里加入张 Png 图片： Image1。然后在 AddCommandBar 方法的 With 语句块里加上下面的这一句：
.Picture = CovertImage.Convert(My.Resources.Image1)
哦对了，还要把 Style 修改为带Icon的，比如：msoButtonIconAndCaption
With commandBtn .Caption = "Command Button" '.FaceId = 59 .Style = Microsoft.Office.Core.MsoButtonStyle.msoButtonIconAndCaption .Picture = CovertImage.Convert(My.Resources.Image1) .Visible = True AddHandler .Click, AddressOf CommandBtn_Click End With
 这样一个自定义图标就加上去了。