VBA，Excel：可以将.OnAction值设置为ThisWorkbook中的Public Sub

Question

VBA天才：

问题1：是否可以将菜单选项的 .OnAction 值设置为 ThisWorkbook 中的Public Sub或必须sub在模块？

这有效：ViewTextFile（）是模块中的公共子

.Controls(strMenuItem).OnAction = "'ViewTextFile """ & strMenuItem & """'"

我想将子移动到 ThisWorkbook ，所以值变成这样的：

.Controls(strMenuItem).OnAction = "'" & ThisWorkbook.Name & "!ViewTextFile """ & strMenuItem & """'"

问题2：如果对＃1的回答是肯定的，那么将“ThisWorkbook”引用到.OnAction命令中的语法是什么？

请注意，参数 strMenuItem 必须包含在值中（如“ViewTextFile my_file.txt”中所示）。我尝试了上述的许多变化但没有成功。

谢谢你，VBA天才！

Answer 1

.Controls(strMenuItem).OnAction = _
            "'ThisWorkbook.ViewTextFile """ & strMenuItem  & """'"