【作业】03课-飘逸的云

飘逸的云

功能和需求：
当选择按钮时，插入一个新的工作表或图表时，将插入到所有工作表的最后面
代码：
Ribbon1的代码

1. <p>using System;
   
2. using System.Collections.Generic;
   
3. using
   
4. System.Linq;
   
5. using System.Text;
   
6. using Microsoft.Office.Tools.Ribbon;</p>
   
7. <p>namespace MyEvent
   
8. {
   
9.     public partial class
   
10. Ribbon1
    
11.     {
    
12.         
    
13. private void Ribbon1_Load(object sender, RibbonUIEventArgs
    
14. e)
    
15.         
    
16. {
    
17.             
    
18. 
    
19.         }</p>
    
20. <p>        private void
    
21. chkNewSheet_Click(object sender, RibbonControlEventArgs
    
22. e)
    
23.         
    
24. {
    
25.             if
    
26. (chkNewSheet.Checked)  
    
27. //复选框选中时，开启事件
    
28.             
    
29. {
    
30.                
    
31. EventNewSheet.EventStart();
    
32.             
    
33. }
    
34.             
    
35. else  
    
36. //否则停止该事件
    
37.             
    
38. {
    
39.                
    
40. EventNewSheet.EventStop();
    
41.             
    
42. }
    
43.         }
    
44.    
    
45. }
    
46. }  </p>

复制代码

EventNewSheet的代码

1. 
   
2. <p>using System;
   
3. using System.Collections.Generic;
   
4. using
   
5. System.Linq;
   
6. using System.Text;
   
7. using Excel =
   
8. Microsoft.Office.Interop.Excel;</p>
   
9. <p>namespace MyEvent
   
10. {
    
11.     class
    
12. EventNewSheet
    
13.     {</p>
    
14. <p>        
    
15. //添加新建工作表事件
    
16.         public static void
    
17. EventStart()
    
18.         
    
19. {
    
20.             
    
21. Excel.Application app =
    
22. Globals.ThisAddIn.Application;
    
23.             
    
24. app.WorkbookNewSheet += new
    
25. Excel.AppEvents_WorkbookNewSheetEventHandler(app_WorkbookNewSheet);
    
26.         
    
27. }</p>
    
28. <p>        
    
29. //移除事件
    
30.         public static void
    
31. EventStop()
    
32.         
    
33. {
    
34.             
    
35. Excel.Application app =
    
36. Globals.ThisAddIn.Application;
    
37.             
    
38. app.WorkbookNewSheet -=
    
39. app_WorkbookNewSheet;
    
40.         }</p>
    
41. <p>        
    
42. //新建工作表事件
    
43.         static void
    
44. app_WorkbookNewSheet(Excel.Workbook Wb, object
    
45. Sh)
    
46.         {</p>
    
47. <p>            
    
48. Excel.Worksheet tempWorksheet = Sh as Excel.Worksheet;  
    
49. //将对象转换为Worksheet
    
50.             
    
51. if (tempWorksheet !=
    
52. null)
    
53.             
    
54. {
    
55.                
    
56. tempWorksheet.Move(After: Wb.Sheets[Wb.Sheets.Count]); //若为Worksheet
    
57. 则移动该对象至末尾
    
58.             
    
59. }
    
60.             
    
61. else
    
62.             
    
63. {
    
64.                
    
65. Excel.Chart tempChart = Sh as Excel.Chart;  
    
66. //否则将对象转换为Chart
    
67.                
    
68. if
    
69. (tempChart!=null)                        
    
70. //若为Worksheet
    
71. 则移动该对象至末尾,否则不处理
    
72.                
    
73. {
    
74.                     
    
75. tempChart.Move(After:
    
76. Wb.Sheets[Wb.Sheets.Count]);
    
77.                
    
78. }               
    
79. 
    
80.             
    
81. }
    
82.         }
    
83.    
    
84. }
    
85. }     
    
86. </p>

复制代码

faunus

有点实用价值。