2019-03-10
阅读量:
541
对指定单元格里的数据进行画图
问题描述：想对某指定的单元格数据进行图形化。该单元格的数据是动态的，实时不断更新的。
解决方案：
Sub 绘折线图()
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A5:G5"), PlotBy:= _
xlRows
ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R9C1:R9C7"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub
A5:G5为数据区域
R9C1:R9C7 表示X轴标志所在单元格区域
第9行第1列(即A9)到第9行第7列(即G9)
如果不需要可以把这行删除，得到，然后横坐标就自动123456
Sub 绘折线图()
8.1102
2
3
关注作者
收藏
评论(0)
发表评论
暂无数据
