在实际工作中我们常用图表来表现数据间的某种相对关系，一般采用手工.doc

在实际工作中我们常用图表来表现数据间的某种相对关系，一般采用手工插入的方式，而使用VBA代码可以在工作表中自动生成图表，如下面的示例代码。 Sub ChartAdd()? Dim myRange As Range? Dim myChart As ChartObject? Dim R As Integer? With Sheet1?? ???.ChartObjects.Delete?? ???R = .Range(A65536).End(xlUp).Row?? ???Set myRange = .Range(A 1 :B R)?? ???Set myChart = .ChartObjects.Add(120, 40, 400, 250)?? ???With myChart.Chart?? ?? ?? ?.ChartType = xlColumnClustered?? ?? ?? ?.SetSourceData Source:=myRange, PlotBy:=xlColumns?? ?? ?? ?.ApplyDataLabels ShowValue:=True?? ?? ?? ?.HasTitle = True?? ?? ?? ?.ChartTitle.Text = 图表制作示例?? ?? ?? ?With .ChartTitle.Font??