Sub Main 'Initializes Grapher Dim Grapher As Object Set Grapher = CreateObject("Grapher.Application") Grapher.Visible = True '================================ 'User-defined variables '================================ inpath$ = Grapher.Path+"\Samples\" filename$ = "BarCharts.gpj" outpath$ = "C:\temp\" '================================ 'Open an existing document Set PlotDoc = Grapher.Documents.Open(inpath$+filename$) 'Loop through graphs, selecting and exporting each individually For i=1 To PlotDoc.Shapes.Count PlotDoc.Shapes.Item(i).Select graphname = PlotDoc.Shapes.Item(i).Name PlotDoc.Export2(outpath$+graphname+".jpg",True,"HDPI=200",True,"jpg") PlotDoc.Selection.DeselectAll Debug.Print i Next Debug.Print "Done" End Sub