TeeChart对象的属性方法介绍

<% Set TChart1 = CreateObject("TeeChart.TChart") TChart1.Height = 440 ' 整个图表的高度 TChart1.Width = 500 ' 整个图表的宽度 'TChart1.Header.Text.Clear 'TChart1.Header.Text.Add "季度销售量统计" ' 图表标题，方式也可采用 TChart1.Header.Text(0)="标题"形式 TChart1.Header.Font.Size = 22 ' 标题字体大小 TChart1.Header.Font.Bold = True ' 标题字体是否粗体 TChart1.Header.Font.Italic = True ' 标题字体是否斜体 TChart1.Panel.MarginLeft = 3 ' 图表左边距 TChart1.Panel.Gradient.Visible = True ' 是否有底色 TChart1.Panel.Gradient.StartColor = &HB3DEF ' 图表底色开始颜色 TChart1.Panel.Gradient.EndColor = &HFACE87 ' 图表底色结束颜色 TChart1.Panel.BevelWidth = 0 ' 画布向内缩进幅度 TChart1.AddSeries(0) ' 显示图形的方式，取值范围为1 ~ 39 TChart1.Aspect.View3D = False ' False表示2D图形，True表示3D图形 TChart1.Aspect.Chart3DPercent = 10 ' 若是3D图形，表示其倾斜度 TChart1.Aspect.Zoom = 100 ' 图形显示比例 TChart1.Aspect.Orthogonal = TRUE ' 3D图表是否侧转 TChart1.Aspect.Rotation = -20 ' 如果图表是侧转的，水平侧转角度-360~360 TChart1.Aspect.Elevation = 0 ' 如果图表是侧转的，前后侧转角度-360~360 TChart1.Aspect.Perspective = 0 ' 3D图形向心聚集程度 TChart1.Aspect.Chart3DPercent = 20 ' 3D图形厚度1~100 TChart1.Walls.Bottom.Size = 5 ' 如果是3D图形，表示其横坐标厚度 TChart1.Walls.Bottom.Color = RGB(35,70,128) ' 底座颜色 TChart1.Walls.Bottom.Transparent = True ' 若是3D图形，底座是否透明 TChart1.Walls.Back.Pen.Visible = True ' 参坐标边框是否显示 TChart1.Walls.Left.Size = 5 ' 如果是3D图形，表示其纵坐标厚度 TChart1.Walls.Left.Color = 8454143 ' 纵坐标颜色 TChart1.Walls.Left.Transparent = True ' 若是3D图形，纵坐标壁是否透明 TChart1.Legend.Visible = True ' 是否显示图例 TChart1.Legend.VertSpacing = 9 ' 图例框架高度 TChart1.Legend.DividingLines.Visible = False ' 图例间是否有间隔线 TChart1.Header.Text(0)="出版发行量统计图" TChart1.AddSeries(1) TChart1.Aspect.View3D = true TChart1.Series(0).Clear TChart1.Series(0).Add 2500, "电子类" , RGB(255,0, 0) TChart1.Series(0).Add 3900, "计算机类",RGB(255,255,0) TChart1.Series(0).Add 2700, "医学类", RGB(255,0,255) TChart1.Series(0).Add 3500, "电工类", RGB(255,128,0) TChart1.Series(0).Add 3200, "职教类", RGB(255,0,128) TChart1.Series(0).Marks.Visible = true TChart1.Series(0).Marks.Style = 0 TChart1.Legend.Visible = false TChart1.Axis.Depth.Visible= False ' 坐标轴是3D透明时，是否显示内壁 TChart1.Axis.DrawAxesBeforeSeries = False ' 网格是否显示在图的前 TChart1.Axis.Left.Title.Caption = "产值(单位:万元)" ' 纵坐标轴标题 TChart1.Axis.Left.Title.Font.Bold = True ' 纵坐标轴标题是否加粗 TChart1.Axis.Left.Title.Font.Size = 9 ' 纵坐标轴标题大小 TChart1.Axis.Left.Title.Visible = True ' 是否显示纵坐标名称 TChart1.Axis.Left.Labels.Angle = 90 ' 纵坐标字体倾斜角度 TChart1.Axis.Left.GridPen.Visible = True ' 横坐标参量轴是否显示 TChart1.Axis.Bottom.Title.Caption = "时间轴" ' 横坐标轴标题 TChart1.Axis.Bottom.Title.Font.Bold = True ' 横坐标轴标题是否加粗 TChart1.Axis.Bottom.Title.Font.Size= 9 ' 横坐标轴标题大小 TChart1.Axis.Bottom.Labels.Angle = 0 ' 横坐标字体倾斜角度0~360 TChart1.Axis.Bottom.GridPen.Visible = True ' 参纵坐标轴是否显示 TChart1.Footer.Text.Add "图表下标题" ' 图表的下标题 TChart1.Footer.Font.Size = 11 ' 下标题字体大小 TChart1.Footer.Font.Bold = True ' 下标题字体是否为粗体 TChart1.Footer.Font.Italic = False ' 下标题字体是否为斜体 TChart1.Export.SaveToJPEGFile server.mappath("MyChart.jpg"),False,JPEGBestQuality, 100 , TChart1.Width , TChart1.Height '导出存储为MyChart.jpg文件 Set TChart1 = nothing %>