Sub Main 'Initialize Grapher Dim GrapherApp, Plot, Graph1, ScatterPlot As Object Set GrapherApp = CreateObject("Grapher.Application") GrapherApp.Visible = True Set Plot = GrapherApp.Documents.Add(grfPlotDoc) 'Create a line plot Set Graph1 = Plot.Shapes.AddLinePlotGraph(GrapherApp.Path+"\samples\tutorial.dat") 'Add a line plot to the graph Graph1.AddLinePlot(GrapherApp.Path+"\samples\tutorial.dat", 1, 3) 'Change the first plot to a scatter plot Set ScatterPlot = Graph1.Plots.Item(1) ScatterPlot.symbolFreq = 1 ScatterPlot.Line.Style("invisible") 'Set the symbol properties for the scatter plot ScatterPlot.Symbol.Index = 38 ScatterPlot.Symbol.Size = 0.35 ScatterPlot.Symbol.Color = RGB(255,0,0) ScatterPlot.Symbol.LineColor = grfColorBlue End Sub