这个图表怎么按每一行数据生成图表呢？
"变动费_变动费"，"总费用"，"固定费_固定费"都是列数据的表头
此主题相关图片如下：微信截图_20210823141715.png
Chart.AxisY.Max = Tables("眼见为实").current("总费用")
Chart.AxisY.Major = 50
Chart.AxisX.Max = Tables("眼见为实").current("总费用")
Chart.AxisX.Major = 50
Chart.LegendVisible = True
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Text = "固定费线"
Series.Length = 2 '新增图系包括2个数据点
Series.X(0) = 0 '指定水平坐标
Series.Y(0) = Tables("眼见为实").current("固定费_固定费")
Series.X(1) = Tables("眼见为实").current("销售额_销售额") '指定水平坐标LineThickNess
Series.Y(1) = Tables("眼见为实").current("固定费_固定费")
Series.LineColor = color.green
Series.LineThickNess=2
Series.MarkSize=0
Series = Chart.SeriesList.Add() '增加一个图系
Series.Text = "变动费线"
Series.Length = 2 '新增图系包括2个数据点
Series.X(0) = 0 '指定水平坐标
Series.Y(0) = 0
Series.X(1) = Tables("眼见为实").current("销售额_销售额") '指定水平坐标LineThickNess
Series.Y(1) = Tables("眼见为实").current("变动费_变动费")
Series.LineColor = color.blue
Series.LineThickNess=2
Series.MarkSize=0
[此贴子已经被作者于2021/8/23 14:28:36编辑过]
加好友 
发短信
Post By：2021/8/22 10:00:00 [只看该作者]
