我正在尝试调用子（OnAction）并从工具栏控件传递参数，但是由于不断显示“无法运行宏，因此该宏可能不可用”，因此似乎无法调用它。
控件在工作簿中，功能在模块中。
Option Explicit
Sub somefunction(Optional ServerType As String) End Sub
这是控件的代码：
With ToolsMenuControl
.Caption = "some caption"
.OnAction = "'" & ThisWorkbook.Name & "'!someFunction ""Wintel""'"
.Tag = C_TAG
End With
请指教。
似乎正确的.OnAction property分配取决于是否保存文件。因此，下面提供了可能的语法：
If ThisWorkbook.Saved Then
'when your file is saved
.OnAction = "'" & ThisWorkbook.Name & "'!'somefunction ""Saved""'"
Else
'when file is not saved
.OnAction = ThisWorkbook.Name & "!'somefunction ""Not Saved""'"
End If
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句