Save my GRF file to a new name using Grapher Automation

This article contains a sample script for opening an existing GRF file and saving it to a new file name.

To run this script:

1. Click here to download the BAS file: Open SaveAs.BAS
2. Click Automation | Scripts | Run, select the BAS file from your downloads directory, and click Open.

OR:

1. Copy the script below.
2. Open Grapher and turn on the Script Manager by clicking View | Display | Script Manager.
3. Press Ctrl+A to select all of the existing lines in the Script Manager and then press DELETE.
4. Press Ctrl+V to paste it into the Script Manager.
5. Click the Start/Resume icon () in the Script Manager.

*********

Sub Main

Dim GrapherApp As Object
Dim Plot As Object
Set GrapherApp = CreateObject("Grapher.Application")

GrapherApp.Visible = False
Dim Docs As Object
Set Docs = GrapherApp.Documents

Path="C:\program files\golden software\grapher 15\samples\"

  Set Plot = GrapherApp.Documents.Open(Path+"histogram.grf")
  Plot.SaveAs(Path+"Test.gpj")
  Docs.Close

GrapherApp.Quit

End Sub

Updated August 6, 2019