当前位置:首页 > teechart常用函数
Set TChart1 = CreateObject(“TeeChart.TChart”) TChart1.Height=250 TChart1.Width=500 TChart1.Header.Text.Clear
TChart1.Header.Text.Add “K180次旅客列车日发送人数统计图”
TChart1.Panel.Gradient.Visible=True
TChart1.Panel.Gradient.StartColor=RGB(200,255,200) TChart1.Panel.Gradient.EndColor=RGB(255,255,255) TChart1.AddSeries(scBar) TChart1.Series(0).Clear
TChart1.Series(0).ColorEachPoint = True
TChart1.Series(0).Add 180, “02/10”,clTeeColor TChart1.Series(0).Add 240, “02/11”,clTeeColor TChart1.Series(0).Add 210, “02/12”,clTeeColor TChart1.Series(0).Add 280, “02/13”,clTeeColor TChart1.Series(0).Add 218, “02/14”,clTeeColor TChart1.Series(0).Add 225, “02/15”,clTeeColor
TChart1.Export.SaveToJPEGFile server.mappath(“/teechart”)+“\\MyChart.jpg”,False,JPEGBestQuality, 85,TChart1.Width, TChart1.Height %>