Office中国论坛/Access中国论坛

标题: 【作业】03课-飘逸的云 [打印本页]
作者: 飘逸的云    时间: 2014-3-20 12:12
标题: 【作业】03课-飘逸的云
本帖最后由 飘逸的云 于 2014-3-20 12:19 编辑

功能和需求：
当选择按钮时，插入一个新的工作表或图表时，将插入到所有工作表的最后面
代码：
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.             

  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的代码

  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. }               

  80.             
  81. }
  82.         }
  83.    
  84. }
  85. }     
  86. </p>
复制代码
作者: faunus    时间: 2014-3-20 14:09
有点实用价值。



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3