我正在尝试访问表单按钮...作为测试。但是当我这样做的时候;我收到错误消息,它不支持此属性或方法?像这样访问按钮的正确方法是什么?
() => fetch(...)
答案 0 :(得分:1)
由于ActiveSheet
不一定是Worksheet
,因此该属性将工作表包裹在Object
中,然后您基本上必须猜出正确的咒语并用手指交叉没有任何错别字(Option Explicit
不能使您摆脱最新绑定的代码)。
尽快恢复早期绑定,不要将成员调用链接到Object
或Variant
。
Dim sheet As Worksheet
Set sheet = ActiveSheet
With sheet.Shapes("FH_btnHideShowCNC")
'Shapes.Item(String) returns a Shape object, so we're early-bound now.
'...
End With
现在With
块变量的接口在编译时是已知的,您将获得可用成员的列表,并且代码将在编译时爆炸如果您尝试调用一个不存在的成员(例如.Caption
),而不是在运行时崩溃。
答案 1 :(得分:0)
这是您要尝试的吗?
With ActiveSheet.Shapes("FH_btnHideShowCNC")
MsgBox .TextFrame.Characters.Text
Exit Sub
End With
MsgBox .Name
将为您提供按钮的名称,即FH_btnHideShowCNC