【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 里。

 

[vb]  view plain copy

1. Public Class ThisAddIn  
2.     Private Sub ThisAddIn_Startup() Handles Me.Startup  
3.     End Sub  
4.     Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown  
5.     End Sub  
6. End Class  

查看 ThisAddIn.Designer.vb， 你会发现 Excel Application 这个对象(老熟悉老亲切了)，它是我们能调用到 Workbook, WorkSheet 的关键。

[vb]  view plain copy

1. <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "10.0.0.0")> _  
2. Friend WithEvents Application As Microsoft.Office.Interop.Excel.Application  

ThisAddIn_Startup 会在 AddIn 被 Excel 加载时被调用，因此利用这个事件加载 CommandBar，然后用 AddHandler 为 CommandButton 添加点击的事件处理。(VBA里是通过 Action 属性绑定方法)

[vb] view plain copy

1. Public Class ThisAddIn  
2.     Private Sub ThisAddIn_Startup() Handles Me.Startup  
3.         AddCommandBar()  
4.     End Sub  
5.     Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown  
6.         If mCommandBar IsNot Nothing Then  
7.             mCommandBar.Delete()  
8.         End If  
9.     End Sub  
10.     Private mCommandBar As Office.CommandBar  
11.     Private Sub AddCommandBar()  
12.         Try  
13.             mCommandBar = Application.CommandBars.Add("VSTOSample", Office.MsoBarPosition.msoBarTop, True, False)  
14.             If mCommandBar IsNot Nothing Then  
15.                 Dim commandBtn As Office.CommandBarButton = mCommandBar.Controls.Add(Office.MsoControlType.msoControlButton)  
16.                 With commandBtn  
17.                     .Caption = "Command Button"  
18.                     .FaceId = 59  
19.                     .Style = Microsoft.Office.Core.MsoButtonStyle.msoButtonCaption  
20.                     .Visible = True  
21.                     AddHandler .Click, AddressOf CommandBtn_Click  
22.                 End With  
23.                 mCommandBar.Visible = True  
24.             End If  
25.         Catch ex As Exception  
26.             MsgBox(ex.Message)  
27.         End Try  
28.     End Sub  
29.     Private Sub CommandBtn_Click(control As Office.CommandBarButton, ByRef cancel As Boolean)  
30.         MsgBox(control.Caption + " Click")  
31.     End Sub  
32. End Class  

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

回过头来看看这个CommandButton的图标它使用的是 FaceId 显示的是Excel自带的图标，我们希望换成自定义的图像该怎么做？
自定义图标需要使用 CommandButton.Picture 属性，它需要利用 AxHost.GetIPictureDispFromPicture 方法将 Image 转成 Office 对象可用的  stdole.IPictureDisp 对象，但这个方法是 Protected 的，所以这里又做了个类继承与 AxHost，并实现一个静态方法用于转换。 

[vb] view plain copy

1. Friend Class CovertImage : Inherits System.Windows.Forms.AxHost  
2.     Private Sub New()  
3.         MyBase.New(Nothing)  
4.     End Sub  
5.     Public Shared Function Convert(ByVal img As System.Drawing.Image) As stdole.IPictureDisp  
6.         Return System.Windows.Forms.AxHost.GetIPictureDispFromPicture(img)  
7.     End Function  
8. End Class  

往工程的 Resouces 里加入张 Png 图片： Image1。然后在 AddCommandBar 方法的 With 语句块里加上下面的这一句：
.Picture = CovertImage.Convert(My.Resources.Image1)
哦对了，还要把 Style 修改为带Icon的，比如：msoButtonIconAndCaption

[vb] view plain copy

1. With commandBtn  
2.     .Caption = "Command Button"  
3.     '.FaceId = 59  
4.     .Style = Microsoft.Office.Core.MsoButtonStyle.msoButtonIconAndCaption  
5.     .Picture = CovertImage.Convert(My.Resources.Image1)  
6.     .Visible = True  
7.     AddHandler .Click, AddressOf CommandBtn_Click  
8. End With  

 这样一个自定义图标就加上去了。