下面是我在按键鼠标动作中写的程序：
Sub OnClick(ByVal Item)
start
End Sub
我在vba的GlobalTemplateDocument(@PROJECT.PDT)中编写了:
Public Sub start()
Dim Result As String
Dim MatLab As Object
Set MatLab = CreateObject("MATLAB.Application")
Result = MatLab.Execute("opc")
Call MatLab.minimizecommandwindow
Result = MatLab.Execute("h=actxserver('MATLAB.Application')")
Result = MatLab.Execute("set(h,'visible',1")
End Sub
在VBA的环境下运行这个函数是可以实现调用的功能的，但是在画面起动后的按键，单击后却不能起动。