"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) "Zoom view Plot1.Windows(1).Zoom(grfZoomFitToWindow) "Define object pointer Set Graph1 = Plot1.Shapes.Item(1) "Define object pointer Set LineScatterPlot1 = Graph1.Plots.Item(1) "Select object LineScatterPlot1.Select "Set Line.ForeColor LineScatterPlot1.Line.ForeColor = grfColorGreen