[求助]自定义函数中在窗格中插入公式，为何不成功？　[金字塔]

表格对象插入指标公式是没有问题，我使用了我的电脑上的一个指标试用。

调用指标代码为

if ISLASTBAR then s:TEST1();

自定义函数的VBA代码为

Function test1(Formula)
    '系统会在逐周期模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
    application.MsgOut("tttt")
    set MainFrame = Application.ActivateFrame("Technic")
     Set Grid = Technic.GetGridByName("Main") '插入公式KXJTAG
      Grid.InsertFormula("Formula4") '画图
      Grid.DrawEllipse 10,10,100,100,255
      test1=0

End Function