#include <Origin.h>
// File to test VBA access
// The following function will be called - it just prints message in the script window
void VBATestFunc()
{
	printf("Function was called successfully from VB!\n");
} 

Private Sub CommandButton1_Click()
Dim OriginApp As Origin.Application
Set OriginApp = GetObject("", "Origin.ApplicationSI")
OriginApp.Execute ("run.loadOC(""VBATest.c"");")
OriginApp.Execute ("vbatestfunc")
End Sub

Private Sub CommandButton1_Click()
Dim OriginApp As Origin.Application
Set OriginApp = GetObject("", "Origin.ApplicationSI")
OriginApp.Execute ("vbatestfunc")
End Sub

quote:

---

I went to Code Builder in Origin and cleared the workspace using File->New Workspace command so that the VBAtest.c file is no longer part of my workspace, in this time, VBATestFunc shouldn't be valid in Script window, but it's a valid function in script window. It means that no matter the command "run.LoadOC("VBTest.c")" ran or not, CommandButton1_Click will be executed successfully.

---

 
Private Sub CommandButton1_Click()
    'Open a new instance of the Origin application
    Dim oApp As Origin.Application
    Set oApp = GetObject("", "Origin.Application")
    
    'Create new GraphPage in Origin workspace
    Const ORIGIN_WINTYPE_GRAPH = 3
    Dim name As String, realname As String
    name = "MyGraph"
    name = oApp.CreatePage(ORIGIN_WINTYPE_GRAPH, name, "Origin")
    
    'Copy page from Origin Workspace using CopyPage method
    bb = oApp.CopyPage(name)
    If (Not (bb)) Then
        MsgBox ("Could not copy page")
        Exit Sub
    End If

    'Now create a new chart and paste image
    With ActiveSheet.ChartObjects.Add _
        (Left:=225, Width:=375, Top:=150, Height:=325)
        .Chart.Paste
    End With
    
    'Set Modified flag so that Origin does not prompt for saving this current project
    oApp.IsModified = False
    oApp.Execute ("exit")
End Sub