Question

我正在尝试访问表单按钮...作为测试。但是当我这样做的时候；我收到错误消息，它不支持此属性或方法？像这样访问按钮的正确方法是什么？

() => fetch(...)

Answer 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），而不是在运行时崩溃。

Answer 2

这是您要尝试的吗？

With ActiveSheet.Shapes("FH_btnHideShowCNC")
    MsgBox .TextFrame.Characters.Text
    Exit Sub
End With

MsgBox .Name将为您提供按钮的名称，即FH_btnHideShowCNC

访问表单按钮

2 个答案: