Export to PNG.
Posted: Wed Nov 15, 2006 11:42 pm
I get an error at asPNG.SaveToFile. This works on some of our machines, unfortunatly does not on production.
I am guessing installation issue.
Any ideas.
TChart1.AddSeries(TeeChart.ESeriesClass.scBar)
TChart1.Series(0).XValues.DateTime = True
TChart1.Series(0).Marks.Visible = False
TChart1.Legend.Visible = False
TChart1.Walls.Visible = False
'TChart1.Axis.Left.Visible = False
TChart1.Aspect.View3D = False
TChart1.ApplyPalette(TeeChart.EColorPalette.cpTeeChart)
For j = 0 To valueCount - 1
With TChart1.Series(0)
.AddXY(DateValue(dateArray(j)).ToOADate, Double.Parse(valueArray(j)), "", 255)
End With
Next
With TChart1.Export
.asPNG.CompressionLevel = 50
.asPNG.Height = 500
.asPNG.Width = 700
.asPNG.SaveToFile(outpath)
End With
I am guessing installation issue.
Any ideas.
TChart1.AddSeries(TeeChart.ESeriesClass.scBar)
TChart1.Series(0).XValues.DateTime = True
TChart1.Series(0).Marks.Visible = False
TChart1.Legend.Visible = False
TChart1.Walls.Visible = False
'TChart1.Axis.Left.Visible = False
TChart1.Aspect.View3D = False
TChart1.ApplyPalette(TeeChart.EColorPalette.cpTeeChart)
For j = 0 To valueCount - 1
With TChart1.Series(0)
.AddXY(DateValue(dateArray(j)).ToOADate, Double.Parse(valueArray(j)), "", 255)
End With
Next
With TChart1.Export
.asPNG.CompressionLevel = 50
.asPNG.Height = 500
.asPNG.Width = 700
.asPNG.SaveToFile(outpath)
End With