将参数传递给sub through按钮

Question

我尝试制作调用函数的动态按钮。这有效：

btn.OnAction = "'DieseArbeitsmappe.Update_DB'"

但是当我添加参数时，它会中断（第一个参数是一个字符串，第二个是按钮对象）：

btn.OnAction = "'DieseArbeitsmappe.Update_DB " & Chr(34) & t.Text & Chr(34) & ", " & btn & "'"

它抛出：

  

Object不支持此属性或方法

我错过了什么？

PS：此变体也不起作用：

btn.OnAction = "'DieseArbeitsmappe.Update_DB """ & t.Text & """," & btn & " '"

与上述相同的错误。

Answer 1

从字符串中删除Object btn，因为您无法将Object传递给字符串。如果您想在Object btn上执行操作或方法，请在Sub内的单独代码行中执行此操作。

btn.OnAction = "'DieseArbeitsmappe.Update_DB " & Chr(34) & t.Text & Chr(34) & "'"
btn.Delete 'or Shapes(btn).Delete