四、添加按钮的回调方法
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
插入位置如下图
插入后的如下图
|