May it helps.
SetLocale("en-us")
Set Synergy = CreateObject("synergy.Synergy")
Synergy.SetUnits "Metric"
Set PlotManager = Synergy.PlotManager()
Set Viewer = Synergy.Viewer()
'save Plot 1
Set Plot1 = PlotManager.FindPlotByName2("Air traps", "Air traps")
Viewer.ShowPlot Plot1
Viewer.SaveImage "D:\myImage1.jpg"
'save Plot2
Set Plot2 = PlotMgr.FindPlotByName2("Time to reach ejection temperature", "Time to freeze")
Viewer.ShowPlot Plot2
Viewer.SaveImage "D:\myImage2.jpg"