This Grapher sample script shows how to create a graph and change the properties of the line/scatter plot and the axes. It then shows how to add a legend that contains text from worksheet cells, and how to export the graph to a TIF file with the same as the GRF name.
To run this script:
- Copy the script below.
- Open Grapher and turn on the Script Manager by clicking View | Display | Script Manager.
- Press Ctrl+A to select all of the existing lines in the Script Manager and then press DELETE.
- Press Ctrl+V to paste it into the Script Manager.
- Click the green arrow Start/Resume icon in the Script Manager.
Sub Main 'Initialize Grapher Dim GrapherApp, Docs, Plot, Graph1 As Object Set GrapherApp = CreateObject("Grapher.Application") GrapherApp.Visible = True Set Docs = GrapherApp.Documents Set Plot = Docs.Add(grfPlotDoc) 'Create a line plot Set Graph1 = Plot.Shapes.AddLinePlotGraph(GrapherApp.Path + "\samples\tutorial.dat") Set Line1 = Graph1.Plots(1) Set XAxis = Graph1.Axes("X Axis 1") 'Add second line plot Set Line2 = Graph1.AddLinePlot(GrapherApp.Path + "\samples\tutorial.dat",1,3) 'Change Line color for Line2 Line2.line.foreColor = grfColorBlue 'Set the XAxis to use date/time labels XAxis.TickLabels.UseDateTimeFormat = True 'Change the Date/time format XAxis.TickLabels.MajorFormat.DateTimeFormat = 0 'Add a legend Set Legend1 = Graph1.AddLegend(True) 'Change the text of the legend line text to show the column name Legend1.EntryName(1,"<<@b1>>") Legend1.EntryName(2,"<<@c1>>") 'Link legend entries to worksheet Wks = GrapherApp.Path+"\Samples\Tutorial.dat" i=1 While i < Legend1.EntryCount+1 Legend1.EntryFont(i).worksheet = wks i=i+1 Wend 'Export to a TIF that contains the same name as the data file name Plot.Export(Left(Wks,Len(Wks)-3)+"TIF") End Sub
Updated March 8, 2019