向Excel文档中嵌入VBA控件和UserForm并显示(3)

[csharp]
using System; 
using System.Collections.Generic; 
using System.Linq; 
using System.Text; 
using Microsoft.Office.Tools.Ribbon; 
using VBE = Microsoft.Vbe.Interop; 
using Forms = Microsoft.Vbe.Interop.Forms; 
using Excel = Microsoft.Office.Interop.Excel; 
 
namespace ExcelAddIn16 
{ 
    public partial class Ribbon1 
    { 
        private Forms.CommandButton objCommandButton = null; 
        private void Ribbon1_Load(object sender, RibbonUIEventArgs e) 
        { 
 
        } 
 
        private void button1_Click(object sender, RibbonControlEventArgs e) 
        { 
            Excel.Application objApplication = Globals.ThisAddIn.Application; 
            Excel.Workbook objWorkbook = objApplication.ActiveWorkbook; 
            Excel.Worksheet objWorksheet = objWorkbook.ActiveSheet; 
            Excel.Shape objShape = objWorksheet.Shapes 
                .AddOLEObject("Forms.CommandButton.1"); 
            objShape.Name = "btn1"; 
            Excel.OLEObject objOLEObject = objWorksheet.OLEObjects("btn1"); 
            string strModuleString = string.Empty; 
            if (objOLEObject.Object is Forms.CommandButton) 
            { 
                objCommandButton =  
                    (Forms.CommandButton)objOLEObject.Object; 
                objCommandButton.Caption = "Embedded Button"; 
                objCommandButton.Click +=