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

表格對象插入指標公式是沒有問題，我使用了我的電腦上的一個指標試用。

調用指標代碼為

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