Sub Main

'Create Grapher as an Object
Dim Grapher As Object

'Start Grapher
Set Grapher = CreateObject("Grapher.Application")

Grapher.Visible = True

'Create a new document window
Set Plot1 = Grapher.Documents.Add(grfPlotDoc)

Plot1.Windows.Item(1).PageUnits(grfInches)

'Create line plot graph
Plot1.Shapes.AddLinePlotGraph("C:\Program Files\Golden Software\Grapher 12\Samples\3D bar chart.dat",1,2)

'Define object pointer
Set Graph1 = Plot1.Shapes.Item(1)

'Define object pointer
Set YAxis1 = Graph1.Axes.Item(2)

'Set Link.ToAxis
YAxis1.Link.ToAxis = "X Axis 1"

'Set Link.XPos
YAxis1.Link.xPos = True

'Define object pointer
Set XAxis1 = Graph1.Axes.Item(1)

'Set Link.ToAxis
XAxis1.Link.ToAxis = "Y Axis 1"

'Set Link.YPos
XAxis1.Link.yPos = True

'Define object pointer
Set LineScatterPlot1 = Graph1.Plots.Item(1)

'Select object
LineScatterPlot1.Select

'Set Line.ForeColor
LineScatterPlot1.line.foreColor = grfColorDesertBlue

'Set Line.Width
LineScatterPlot1.line.width = 0.03

'DeselectAll selected objects
Plot1.Selection.DeselectAll

'Select object
YAxis1.Select

'Set TickMarks.MajorSpacingAuto
YAxis1.Tickmarks.MajorSpacingAuto = False

'Set TickMarks.MajorSpacing
YAxis1.Tickmarks.MajorSpacing = 1000

'Set TickMarks.MajorSide
YAxis1.Tickmarks.MajorSide = grfTicksOff

'Set TickMarks.MinorSide
YAxis1.Tickmarks.MinorSide = grfTicksOff

'Set Grid.AtMajorTicks
YAxis1.Grid.AtMajorTicks = True

'Set Grid.MajorLine.ForeColor
YAxis1.Grid.MajorLine.foreColor = grfColorBlack30

'Set Line.ForeColor
YAxis1.line.foreColor = grfColorBlack30

'DeselectAll selected objects
Plot1.Selection.DeselectAll

'Select object
XAxis1.Select

'Set Line.ForeColor
XAxis1.line.foreColor = grfColorBlack30

'DeselectAll selected objects
Plot1.Selection.DeselectAll

'Select object
Graph1.Select

'Set math text properties
Graph1.title.text = "U.S. Income over Time (2000-2015)"
Graph1.title.Font.face = "Arial"
Graph1.title.Font.color = grfColorBlack
Graph1.title.Font.Opacity = 100
Graph1.title.Font.size = 18
Graph1.title.Font.Bold = False
Graph1.title.Font.Italic = False
Graph1.title.Font.StrikeThrough = False
Graph1.title.Font.Underline = False
Graph1.title.Font.Justification = grfAlignLeft
Graph1.title.Font.HAlign = 1
Graph1.title.Font.VAlign = 1

Graph1.title.Background.SetPattern("None")
Graph1.title.Background.foreColor = grfColorBlack
Graph1.title.Background.ForeOpacity = 100
Graph1.title.Background.BackColor = grfColorWhite
Graph1.title.Background.BackOpacity = 100
Graph1.title.Background.VScale = 1
Graph1.title.Background.CoverMode = grfTileMode

Graph1.title.worksheet = ""

'Set Title.Line.Style
Graph1.title.line.style = "Invisible"

'Save file as Grapher project file
Plot1.SaveAs("C:\Users\Leslie\Desktop\Plot1.gpj",grfProject)

End Sub