通过代码插入ActiveX控件后，如何为该控件赋值？

作者：绿色风分类：时间：2022-08-18 浏览：98

楼主
biaotiger1

Q：通过代码插入ActiveX控件后，如何为该控件赋值？
已经通过代码插入ActiveX控件的文本框控件，如何通过代码为该文本框控件赋值如下图所示呢？

A：右键单击“Sheet1”工作表名称，打开快捷菜单》》“查看代码”，在代码窗口中输入代码如下：

Sub test()
Set ob = ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", _
Left:=120, Top:=120, Width:=100, Height:=100)
ob.Object.Value = "我是自定义值"
End Sub

运行以上代码，即可在当前工作表中插入一个ActiveX控件的文本框控件，并为该文本框赋值为“我是自定义值”。

PS：当需要更改通过代码插入的ActiveX控件的按钮控件的名称时，需要使用代码如下：

Sub test1()
Set ob = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Left:=120, Top:=120, Width:=100, Height:=50)
ob.Object.Caption = "我是自定义按钮"
End Sub

详见附件。

工作簿1.zip

2楼
云龙

太棒了，学习了

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表