运用VBA如何判断工作表中是否存在ActiveX控件CommandButton1按钮呢？

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

楼主
0Mouse

Q：运用VBA如何判断工作表中是否存在ActiveX控件CommandButton1按钮呢？
A：以下三段代码均可。
代码1：

Sub 判断1()
Dim CB As Object
On Error GoTo info
Set CB = CallByName(Sheet1, "CommandButton1", VbGet)
MsgBox "CommandButton1存在", , "提示"
Exit Sub
info:
MsgBox "CommandButton1不存在", , "提示"
End Sub

代码2：

Sub 判断2() 'kevinchengcw
Dim Obj As Object
For Each Obj In ActiveSheet.DrawingObjects
If Obj.Name = "CommandButton1" Then
MsgBox "找到"
Exit Sub
End If
Next
MsgBox "未找到"
End Sub

代码3：

Sub 判断3() 'pengjia89
On Error GoTo ErrorLine
Dim str As String
Dim i As Integer
Sheets(1).Shapes("CommandButton1").Select
MsgBox "存在CommandButton1"
Exit Sub
ErrorLine:
MsgBox "不存在CommandButton1"
End Sub

附件：

判断工作表中是否存在ActiveX控件CommandButton1按钮.rar

2楼
chenlifeng

感谢师傅对我之前提问进行总结，受益！

3楼
水星钓鱼

学习

免责声明

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

评论列表