VSTO开发示例：基于vb.net的功能区 XML 创建Excel外接程序

EH2003 · 发表于 2017-3-23 22:11

环境准备

本例创建环境：Windows7（64位）+office2013+VS2015

二、创建项目

1、创建名为ExcelRibbon 的“Excel外接程序”项目，如下图所示。

创建 VSTO 外接程序选项卡

创建“外接程序”选项卡，请将“功能区(XML)”项添加到项目中。同时向此选项卡添加一些按钮。

在“项目”菜单上，单击“添加新项”。如下图所示：

EH2003 · 发表于 2017-3-23 22:17

2、在“添加新项”对话框中，选择“功能区(XML)”。如下图图所

将新功能区更名为“ExcelRibbon”，然后单击“添加”。

在 ExcelRibbon.vb 文件将在设计器中打开。还会将名为 ExcelRibbon.xml 的 XML 文件添加到项目中。

在“解决方案资源管理器”中，右键单击 ThisAddin.vb，然后单击“查看代码”。
将下面的代码添加到 ThisAddin 类中。

Protected Overrides Function CreateRibbonExtensibilityObject() As Picrosoft.Office.Core.IRibbonExtensibility
Return New ExcelRibbon()
End Function
如图所示
- 在“解决方案资源管理器”中，右键单击ExcelRibbon 项目，然后单击“生成”。验证此项目是否已生成且未发生错误。

EH2003 · 发表于 2017-3-23 22:19

三、将按钮添加到“外接程序”选项卡

1、在“解决方案资源管理器”中，右键单击 ExcelRibbon.xml，然后单击“打开”。

将以下内容替换：
<?xml version="1.0" encoding="UTF-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Ribbon_Load">
<ribbon>
<tabs>
<tab idMso="TabAddIns">
<group id="MyGroup"
label="My Group">
</group>
</tab>
</tabs>
</ribbon>
</customUI>
替换后的内容为
<?xml version="1.0" encoding="UTF-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Ribbon_Load">
<ribbon>
<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"
imageMso="AnimationTransitionGallery"
screentip="使用说明"
supertip="鼠标放在上面显示使用说明"
onAction="test2" />
</group >
</tab>
</tabs>
</ribbon>
</customUI>

复制代码

EH2003 · 发表于 2017-3-23 22:22

四、添加按钮的回调方法

1、在“解决方案资源管理器”中，右键单击 Ribbon.vb，然后单击“打开”。

2.将以下代码添加到WordRibbon.vb文件的顶部。此代码将为Microsoft.Office.Interop.Word 命名空间创建别名

Imports Excel =Microsoft.Office.Interop. Excel ‘命名空间创建别名

插入后如下图

3、将以下方法添加到ExcelRibbon类。这是“插入文本”按钮的回叫方法，用于在光标的当前位置向活动文档添加字符串。

Public Subtest1(ByVal control As Office.IRibbonControl)

Dim ashAsExcel.Worksheet = CType(Globals.ThisAddIn.Application.ActiveSheet,Excel.Worksheet)

ash.Range("A1:e1").Value= {"FileName", "File Type", "File Size", "LastChange", "File Path"}

ash.Cells.Borders.ColorIndex = 1

ash.Range("A1:e1").Borders.ColorIndex= 1

End Sub

插入位置如下图

插入后的如下图

EH2003 · 发表于 2017-3-23 22:23

五、测试 VSTO 外接程序

1.按 F5 运行项目。或

2.确认“外接程序”选项卡在功能区上可见。

3.单击“外接程序”选项卡。

4.确认“我的测试”组在功能区上可见。

5.单击“我的测试”组中的“插入内容”按钮。

向表格填充内容。

EH2003 · 发表于 2017-3-23 22:25

最后的动画效果

EH2003 · 发表于 2017-3-23 22:27

示例文件

ExcelRibbon.rar (189.95 KB, 下载次数: 268)

EH2003 · 发表于 2017-3-23 22:32

文档

VSTO开发示例.rar (1.42 MB, 下载次数: 431)

1615720058 · 发表于 2017-4-3 19:40

请问如何打包自己的VSTO插件呢？

xxj2422042 · 发表于 2017-4-24 11:02

对我这种菜鸟还是很有用的，至少知道的怎么跟EXCEL的单元格互动

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

[分享] VSTO开发示例：基于vb.net的功能区 XML 创建Excel外接程序

评分

最新热点 /1