1、在實際工作中我們常用圖表來表現數據間的某種相對關系，一般采用手工插入的方式，而使用VBA代碼可以在工作表中自動生成圖表，如下面的示例代碼。 Sub ChartAdd()  Dim myRange As Range  Dim myChart As ChartObject  Dim R As Integer  With Sheet1      .ChartObjects.Delete      R = .Range("A65536").En

2、d(xlUp).Row      Set myRange = .Range("A" & 1 & ":B" & R)      Set myChart = .ChartObjects.Add(120, 40, 400, 250)      With myChart.Chart          .ChartType

3、= xlColumnClustered          .SetSourceData Source:=myRange, PlotBy:=xlColumns          .ApplyDataLabels ShowValue:=True          .HasTitle = True          .Cha

4、rtTitle.Text = "圖表制作示例"          With .ChartTitle.Font              .Size = 20              .ColorIndex = 3             

5、 .Name = "華文新魏"          End With          With .ChartArea.Interior              .ColorIndex = 8              .PatternColorIndex =

6、 1              .Pattern = xlSolid          End With          With .PlotArea.Interior              .ColorIndex = 35     

7、         .PatternColorIndex = 1              .Pattern = xlSolid          End With          .SeriesCollection(1).DataLabels.Delete       

8、;   With .SeriesCollection(2).DataLabels.Font              .Size = 10              .ColorIndex = 5          End With      End With  End

9、 With  Set myRange = Nothing  Set myChart = NothingEnd Sub復制代碼代碼解析：ChartAdd過程在工作表中自動生成圖表，圖表類型為簇狀柱形圖。第6行代碼使用Delete方法刪除工作表中已經存在的圖表，而ChartObjects方法返回代表工作表中單個嵌入圖表（ChartObject對象）或所有嵌入圖表的集合（ChartObjects對象）的對象，語法如下：expression.ChartObjects(Index)其中參數Index是可選的，指定圖表的名稱或號碼。該參數可以是數組，用于指定多個圖表，因為示例中只有一個

10、圖表，所以無需指定其Index參數。第8行代碼指定圖表的數據源。第9行代碼使用Add方法創建一個新圖表，應用于ChartObjects對象的Add方法創建新的嵌入圖表，語法如下：expression.Add(Left, Top, Width, Height)參數Left、Top是必需的，以磅為單位給出新對象的初始坐標，該坐標是相對于工作表上單元格A1的左上角或圖表的左上角的坐標。參數Width、Height是必需，以磅為單位給出新對象的初始大小。第10行代碼使用Chart屬性返回新創建的圖表，應用于ChartObject對象的Chart屬性返回一個Chart對象，該對象代表指定對象所包含的圖表

11、。第11行代碼指定新創建圖表的圖表類型，應用于Chart對象的ChartType屬性返回或設置圖表的類型，可以為XlChartType常量之一，具體請參閱VBA幫助。本例中設置為xlColumnClustered即圖表類型為簇狀柱形圖。第12行代碼指定圖表的數據源和繪圖方式，應用于Chart對象的SetSourceData方法為指定圖表設置源數據區域，語法如下：expression.SetSourceData(Source, PlotBy)參數expression是必需的，該表達式返回一個Chart對象。參數Source是可選的，源數據的區域。參數PlotBy是可選的，指定數據繪制方式，可為x

12、lColumns（系列產生在列）或xlRows（系列產生在行）。第13行代碼使用ApplyDataLabels方法使圖表顯示數據標簽和數據點的值，應用于Chart對象的ApplyDataLabels方法將數據標簽應用于圖表中的某一數據點、某一數據系列或所有數據系列，語法如下：expression.ApplyDataLabels(Type, LegendKey, AutoText, HasLeaderLines, ShowSeriesName, ShowCategoryName, ShowValue, ShowPercentage, ShowBubbleSize, Separator)參數exp

13、ression是必需的，該表達式返回一個Chart對象。參數Type是可選的，要應用的數據標簽的類型，可為表格 60 1所列的XlDataLabelsType 常量之一。表格 60 1       XlDataLabelsType 常量參數LegendKey是可選的，如果該值為True，則顯示數據點旁的圖例項標示。默認值為False。參數AutoText是可選的，如果對象根據內容自動生成正確的文字，則該值為True。參數HasLeaderLines是可選的，如果數據系列具有引導線，則該值為True。參數ShowSeriesName是可選的，數據標簽的系列名稱。參數

14、ShowCategoryName是可選的，數據標簽的分類名稱。參數ShowValue是可選的，數據標簽的值。參數ShowPercentage是可選的，數據標簽的百分比。參數ShowBubbleSize是可選的，數據標簽的氣泡尺寸。參數Separator是可選的，數據標簽的分隔符。第14、15行代碼設置新創建的圖表有可見的標題并設置圖表標題的文字。應用于Chart對象的HasTitle屬性，如果坐標軸或圖表有可見標題，則該值為True，而ChartTitle屬性返回一個ChartTitle對象，代表指定圖表的標題。第16行到第20行代碼設置圖表標題文字的格式。第21行到第25行代碼設置圖表區的顏色。第26行到第30行代碼設置繪圖區的顏色。第31行代碼刪除圖表上第一個數據系列中的數據標簽。SeriesCollection方法返回圖表或圖表組中單個數據系列（Series對象)或所有數據系列的集合（SeriesCollection集合)的對象，語法如下：expression.SeriesCollection(Index)可選的