VSTO开发Excel任务窗格的例子(附制作教程与源代码)

guanmy

VSTO,支持支持

黍离

好东东，值得学习和分享，感谢楼主。

hb19820625

收藏备用，谢谢~

VBA万岁

楼主能帮我看看如下错误如何解决吗？

VBA万岁

xtanuihazfh 发表于 2011-6-11 19:03
以下是相关代码
    '在文本框中按下回车键时查找文本框内容并填充Listview
    Private Sub TextBox1_Ke ...

参照wpxxsyzx生版主的如下帖子增加一个功能区菜单，以控制自定义窗格的隐、现：
【学习VSTO 】—— 制作自定义窗格

截图如下：

VBA万岁

VBA万岁 发表于 2015-10-10 15:08
参照wpxxsyzx生版主的如下帖子增加一个功能区菜单，以控制自定义窗格的隐、现：
【学习VSTO 】—— 制作 ...

Ribbon1.vb的代码如下：

1. Imports Microsoft.Office.Tools.Ribbon
   
2. 
   
3. Public Class Ribbon1
   
4.     Private Sub ToggleButton1_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles ToggleButton1.Click
   
5.         Globals.ThisAddIn.TaskPane.Visible = TryCast(sender, Microsoft.Office.Tools.Ribbon.RibbonToggleButton).Checked
   
6.     End Sub
   
7. End Class
   

复制代码

VBA万岁

VBA万岁 发表于 2015-10-10 15:10
Ribbon1.vb的代码如下：

ThisAddIn.vb.vb的代码如下：

1. Public Class ThisAddIn
   
2.     Private WithEvents MyPane As Microsoft.Office.Tools.CustomTaskPane
   
3.     Private MyControl As MyTaskPane
   
4. 
   
5.     Private Sub ThisAddIn_Startup() Handles Me.Startup
   
6.         MyControl = New MyTaskPane
   
7.         MyPane = Me.CustomTaskPanes.Add(MyControl, "测试任务窗格")
   
8.         MyPane.DockPosition = Microsoft.Office.Core.MsoCTPDockPosition.msoCTPDockPositionLeft
   
9.         Call ShowPane()
   
10.     End Sub
    
11. 
    
12.     Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
    
13.         MyControl = Nothing
    
14.         MyPane = Nothing
    
15.     End Sub
    
16. 
    
17.     Private Sub Application_WorkbookActivate(ByVal Wb As Microsoft.Office.Interop.Excel.Workbook) Handles Application.WorkbookActivate
    
18.         Call MyControl.FillTvw()
    
19.     End Sub
    
20. 
    
21.     Private Sub Application_WorkbookDeactivate(ByVal Wb As Microsoft.Office.Interop.Excel.Workbook) Handles Application.WorkbookDeactivate
    
22.         Call MyControl.FillTvw()
    
23.     End Sub
    
24. 
    
25.     Private Sub ShowPane()
    
26.         MyPane.Visible = True
    
27.     End Sub
    
28. 
    
29.     Private Sub MyPane_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyPane.VisibleChanged
    
30.         Globals.Ribbons.Ribbon1.ToggleButton1.Checked = MyPane.Visible
    
31.     End Sub
    
32. 
    
33.     Public ReadOnly Property TaskPane() As Microsoft.Office.Tools.CustomTaskPane
    
34.         Get
    
35.             Return MyPane
    
36.         End Get
    
37.     End Property
    
38. End Class

复制代码

VBA万岁

VBA万岁 发表于 2015-10-10 15:12
ThisAddIn.vb.vb的代码如下：

其中29~38句代码为新添的代码。效果截图如下：

VBA万岁

VBA万岁 发表于 2015-10-10 15:14
其中29~38句代码为新添的代码。效果截图如下：

功能区加图标：

VBA万岁

VBA万岁 发表于 2015-10-11 11:16
功能区加图标：

测试附件：