标题：[求助]改变图例

此主题相关图片如下：按钮.png


此主题相关图片如下：造林年度.png


此主题相关图片如下：造林类别.png


此主题相关图片如下：林种.png


此主题相关图片如下：退耕.png


此主题相关图片如下：退耕林种.png

顶

Text

返回或者设置图系的标题，这个标题将显示在图例中。

示例

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= Forms("窗口1").Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形)
Chart.LegendVisible = True '显示图例
Chart.SeriesList.Clear() '清除图表原来的图系
For n As integer = 0 To 1
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Text = "图系" & (n + 1)
    Series.Length = 10 '图系包括10个数据点
    For i As integer = 1 to 5 '指定每个数据点的位置
        Series.X(i) = i '指定水平坐标
        Series.Y(i) = i + n * 2 + Rand.Next(5) '垂直坐标用随即数生成
    Next
Next

图系的标题是动态的，不是固定的。根据分析条件组合显示不同的图系的标题。自己已反复看了帮助文件不能变通，才来求助请贺老师费心！

既然是通过代码,就可以随心所欲地动态设置啊.

显然你不需要用列名作为图例,而是希望用列标题作为图例.

那么很简单,将代码中的:

Series.Text = c.Name

改为

Series.Text = c.Caption

点睛之笔，恐怕只有贺老师能点，多谢多谢！