在Excel 2013中,自定义工具栏中的编辑控件文本为空白

时间:2013-07-19 19:12:32

标签: excel vba excel-vba ms-office

我在工具栏上安装了带有vba编辑控件的Excel插件。这已经在Excel 2003-2010下工作了很长时间。但是在Excel 2013下,无论在编辑控件中输入什么内容,text属性始终为空。代码类似于下面的代码。

如果我将Addin加载为.XLS,它可以正常工作。但是如果我把它保存为.XLA并试试,那就失败了。

Sub test()
    Set myControl = CommandBars("test").Controls.Add(Type:=msoControlEdit)
With myControl
    .Caption = Search
    .OnAction = "tester"
End With
End Sub

Sub tester()
  MsgBox "I am gonna serach for: " & CommandBars("Test").Controls(1).Text 
  CommandBars("Test").Controls(1).Text = ""
End Sub

0 个答案:

没有答案