如何根据已有excel数据绘制表格

myschool12 · 发表于 2013-4-12 11:17

各位大侠，如何根据已经有的excel数据绘制图表，而且图表名，图表的点位也要改为图上内容。

李兴德 · 发表于 2013-4-12 11:29

没有附件,哪有真相! 把文件压缩后上传!

myschool12 · 发表于 2013-4-12 13:38

就是这个，要绘制更加详细点，要有表名，线条也要标出来

myschool12 · 发表于 2013-4-12 13:48

Sub 绘折线图()
  ActiveChart.ChartType = xlLine
  ActiveChart.SetSourceData suorce:=Sheets("sheet1").Range("A5:G5"), PlotBy:=xlRows
  ActiveChart.SeriesCollection(1).XValues = "=sheet1!r9c1:r9c7"
  ActiveChart.Location where:=xlLocationAsObject, Name:="sheet1"
End Sub

myschool12 · 发表于 2013-4-12 13:49

这是我写的一个程序，要加上表名称，每条折线的名称，这些该怎么加？

		自动登录	找回密码
密码			免费注册