admin管理员组

文章数量:1536472

2024年6月3日发(作者：)

using Excel = ;

namespace ExcelAddIn16

{

public partial class Ribbon1

{

private dButton objCommandButton = null;

private void Ribbon1_Load(object sender, RibbonUIEventArgs e)

{

}

private void button1_Click(object sender, RibbonControlEventArgs e)

{

ation objApplication = ation;

ok objWorkbook = Workbook;

eet objWorksheet = Sheet;

objShape =

.AddOLEObject("dButton.1");

= "btn1";

ect objOLEObject = ects("btn1");

string strModuleString = ;

if ( is dButton)

{

objCommandButton =

(dButton);

n = "Embedded Button";

+=

new dButtonEvents_ClickEventHandler

(objCommandButton_Click);

ect objVBProject = VBProject;

onent objVBComponet = onents

.Item("Sheet1");

strModuleString = "Private Sub btn1_Click()"

+ "End Sub";

mString(strModuleString);

onent objUserFormComponent =

(__ct_MSForm);

var objFormButton = ls.

Add("dButton.1");

n = "Try to Click Me";

= "frmbtn1";

strModuleString = "Private Sub frmbtn1_Click()nMsgbox "Hello "

+"World!"n="This is a test!"nEnd Sub";

mString(strModuleString);

}

}

void objCommandButton_Click()

{

n = "Hellow World";

}

}

}

本文标签： 控件文档嵌入显示

版权声明：本文标题：向Excel文档中嵌入VBA控件和UserForm并显示 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/xitong/1717376657a565162.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。