主题：统计图x轴下标问题

1.怎么把x轴下标0 1 2 3 4 5 改为“滨湖”“湖光”“担子山”“商业街”“跃进桥”“未归类”，前提是统计表里改不了名  有办法在生成统计图电时候改吗？

2.怎么添加统计图x和y轴的标题？

多谢  可随之又遇到新问题了   我用窗口设计里的TopicBar任务栏  把代码都写在TopicLinkClick里  格式为：

Select Case e.Link.Name
    Case "增加"
        '在此加入相应的代码
    Case "移动"
        '在此加入相应的代码
    Case "删除"
        '在此加入相应的代码
    Case "主页"
        '在此加入相应的代码
End Select

但不同按键也就不同case之间但代码回相互影响，比如：第一次按“月统计”但时候是正常但先按“地区统计”再按“月统计”后就出现设置影响了  如图

想问下生成统计表都时候选择了自动生成汇总模式   可用代码生成excel报表时下面那行汇总却没有   有办法解决吗

用都代码是：

Dim b As New XLS.Book
Dim t As Table = Tables("统计表")
Dim s As XLS.Sheet = b.Sheets(0)
Dim Chart As WinForm.Chart = Forms("窗口1").Controls("Chart1")
For c As Integer = 0 To t.Cols.Count -1 '添加列标题
    s(0, c).Value = t.Cols(c).Name
Next
For r As Integer = 0 To t.Rows.Count - 1 '填入数据
    For c As Integer = 0 To t.Cols.Count -1
        s(r +1, c).Value = t.rows(r)(c)
    Next
Next
'插入图表
s(t.rows.Count + 2,1).Value = New XLS.Picture(Chart.Image,0,0,422,258)
b.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()

我之前用的是下面的代码  是统计图和统计表在一个excel表里的  能不能就在这个代码里修改 使其保存合计模式 麻烦了

Dim b As New XLS.Book
Dim t As Table = Tables("统计表")
Dim s As XLS.Sheet = b.Sheets(0)
Dim Chart As WinForm.Chart = Forms("窗口1").Controls("Chart1")
For c As Integer = 0 To t.Cols.Count -1 '添加列标题
    s(0, c).Value = t.Cols(c).Name
Next
For r As Integer = 0 To t.Rows.Count - 1 '填入数据
    For c As Integer = 0 To t.Cols.Count -1
        s(r +1, c).Value = t.rows(r)(c)
    Next
Next
'插入图表
s(t.rows.Count + 2,1).Value = New XLS.Picture(Chart.Image,0,0,422,258)
b.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()

先点年统计表，再点打印当前图表（你给我点代码目前只放在年统计表里），如果第一次没出现重叠图，可以再重复上面点步骤就会有了。

顺便帮我解决下导出excel表后占比问题，怎么弄成百分比形式 嘻 辛苦了