如何识别工作表中的ActiveX控件？

楼主
chrisfang

Q：如何识别工作表中的ActiveX控件?
A：工作表中添加的对象，可通过Shape.Type来判断其是否为ActiveX控件，然后可以通过progID来判断其具体的控件类型：

Sub Lookupcmd()
For Each shp In ActiveSheet.Shapes
If shp.Type = msoOLEControlObject Then
If shp.OLEFormat.progID = "Forms.CommandButton.1" Then 'Forms.CommandButton.1 可替换为其他控件类型，具体参数详见下面附表
MsgBox "ActiveX按钮控件" & shp.Name '可替换为其他代码
End If
End If
Next shp
End Sub

附：【常用ActiveX控件类型】

控件名称	progID
复选框CheckBox	Forms.CheckBox
组合框ComboBox	Forms.ComboBox
按钮CommandButton	Forms.CommandButton
框架Frame	Forms.Frame
图片Image	Forms.Image
标签Label	Forms.Label
列表框ListBox	Forms.ListBox
多页MultiPage	Forms.MultiPage
选项按钮OptionButton	Forms.OptionButton
滚动条ScrollBar	Forms.ScrollBar
数值调节钮SpinButton	Forms.SpinButton
Tab标签TabStrip	Forms.TabStrip
文本框TextBox	Forms.TextBox
切换按钮ToggleButton	Forms.ToggleButton

上一篇：如何调用WinRar进行文件压缩？
下一篇：如何让图表的数值轴最小值自动适应数据区域的最小值？

免责声明

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

猜您喜欢

评论列表

sitemap