實(shí)例教程 使用VBA自動(dòng)生成圖表

1、在實(shí)際工作中我們常用圖表來(lái)表現(xiàn)數(shù)據(jù)間的某種相對(duì)關(guān)系，一般采用手工插入的方式，而使用VBA代碼可以在工作表中自動(dòng)生成圖表，如下面的示例代碼。1. Sub ChartAdd()2.     Dim myRange As Range3.     Dim myChart As ChartObject4.     Dim R As Integer5.     With Sheet16.         .ChartObjects.Delete7.   &#

2、160;     R = .Range("A65536").End(xlUp).Row8.         Set myRange = .Range("A" & 1 & ":B" & R)9.         Set myChart = .ChartObjects.Add(120, 40, 400, 250)10.     

3、    With myChart.Chart11.             .ChartType = xlColumnClustered12.             .SetSourceData Source:=myRange, PlotBy:=xlColumns13.             .ApplyDataLabels

4、 ShowValue:=True14.             .HasTitle = True15.             .ChartTitle.Text = "圖表制作示例"16.             With .ChartTitle.Font17.          

5、;       .Size = 2018.                 .ColorIndex = 319.                 .Name = "華文新魏"20.             End With21.    &#

6、160;        With .ChartArea.Interior22.                 .ColorIndex = 823.                 .PatternColorIndex = 124.              

7、   .Pattern = xlSolid25.             End With26.             With .PlotArea.Interior27.                 .ColorIndex = 3528.          &#

8、160;      .PatternColorIndex = 129.                 .Pattern = xlSolid30.             End With31.             .SeriesCollection(1).DataLabels.Delete32.

9、60;           With .SeriesCollection(2).DataLabels.Font33.                 .Size = 1034.                 .ColorIndex = 535.          &#

10、160;  End With36.         End With37.     End With38.     Set myRange = Nothing39.     Set myChart = Nothing40. End Sub代碼解析：ChartAdd過(guò)程在工作表中自動(dòng)生成圖表，圖表類型為簇狀柱形圖。第6行代碼使用Delete方法刪除工作表中已經(jīng)存在的圖表，而ChartObjects方法返回代表工作表中單個(gè)嵌入圖表（ChartObject對(duì)象）或所有嵌入

11、圖表的集合（ChartObjects對(duì)象）的對(duì)象，語(yǔ)法如下：expression.ChartObjects(Index)其中參數(shù)Index是可選的，指定圖表的名稱或號(hào)碼。該參數(shù)可以是數(shù)組，用于指定多個(gè)圖表，因?yàn)槭纠兄挥幸粋€(gè)圖表，所以無(wú)需指定其Index參數(shù)。第8行代碼指定圖表的數(shù)據(jù)源。第9行代碼使用Add方法創(chuàng)建一個(gè)新圖表，應(yīng)用于ChartObjects對(duì)象的Add方法創(chuàng)建新的嵌入圖表，語(yǔ)法如下：expression.Add(Left, Top, Width, Height)參數(shù)Left、Top是必需的，以磅為單位給出新對(duì)象的初始坐標(biāo)，該坐標(biāo)是相對(duì)于工作表上單元格A1的左上角或圖表的左上角的

12、坐標(biāo)。參數(shù)Width、Height是必需，以磅為單位給出新對(duì)象的初始大小。第10行代碼使用Chart屬性返回新創(chuàng)建的圖表，應(yīng)用于ChartObject對(duì)象的Chart屬性返回一個(gè)Chart對(duì)象，該對(duì)象代表指定對(duì)象所包含的圖表。第11行代碼指定新創(chuàng)建圖表的圖表類型，應(yīng)用于Chart對(duì)象的ChartType屬性返回或設(shè)置圖表的類型，可以為XlChartType常量之一，具體請(qǐng)參閱VBA幫助。本例中設(shè)置為xlColumnClustered即圖表類型為簇狀柱形圖。第12行代碼指定圖表的數(shù)據(jù)源和繪圖方式，應(yīng)用于Chart對(duì)象的SetSourceData方法為指定圖表設(shè)置源數(shù)據(jù)區(qū)域，語(yǔ)法如下：expres

13、sion.SetSourceData(Source, PlotBy)參數(shù)expression是必需的，該表達(dá)式返回一個(gè)Chart對(duì)象。參數(shù)Source是可選的，源數(shù)據(jù)的區(qū)域。參數(shù)PlotBy是可選的，指定數(shù)據(jù)繪制方式，可為xlColumns（系列產(chǎn)生在列）或xlRows（系列產(chǎn)生在行）。第13行代碼使用ApplyDataLabels方法使圖表顯示數(shù)據(jù)標(biāo)簽和數(shù)據(jù)點(diǎn)的值，應(yīng)用于Chart對(duì)象的ApplyDataLabels方法將數(shù)據(jù)標(biāo)簽應(yīng)用于圖表中的某一數(shù)據(jù)點(diǎn)、某一數(shù)據(jù)系列或所有數(shù)據(jù)系列，語(yǔ)法如下：expression.ApplyDataLabels(Type, LegendKey, AutoTe

14、xt, HasLeaderLines, ShowSeriesName, ShowCategoryName, ShowValue, ShowPercentage, ShowBubbleSize, Separator)參數(shù)expression是必需的，該表達(dá)式返回一個(gè)Chart對(duì)象。參數(shù)Type是可選的，要應(yīng)用的數(shù)據(jù)標(biāo)簽的類型，可為表格 60 1所列的XlDataLabelsType 常量之一。常量值描述xlDataLabelsShowBubbleSizes6無(wú)xlDataLabelsShowLabelAndPercent5占總數(shù)的百分比及數(shù)據(jù)點(diǎn)所屬的分類。僅用于餅圖或圓環(huán)圖。xlDataLabe

15、lsShowPercent3占總數(shù)的百分比。僅用于餅圖或圓環(huán)圖。xlDataLabelsShowLabel4數(shù)據(jù)點(diǎn)所屬的分類。xlDataLabelsShowNone-4142無(wú)數(shù)據(jù)標(biāo)簽。xlDataLabelsShowValue2數(shù)據(jù)點(diǎn)的值，若未指定本參數(shù)，默認(rèn)使用此設(shè)置。表格 60 1        XlDataLabelsType 常量參數(shù)LegendKey是可選的，如果該值為True，則顯示數(shù)據(jù)點(diǎn)旁的圖例項(xiàng)標(biāo)示。默認(rèn)值為False。參數(shù)AutoText是可選的，如果對(duì)象根據(jù)內(nèi)容自動(dòng)生成正確的文字，則該值為True。參數(shù)HasLeaderLines

16、是可選的，如果數(shù)據(jù)系列具有引導(dǎo)線，則該值為True。參數(shù)ShowSeriesName是可選的，數(shù)據(jù)標(biāo)簽的系列名稱。參數(shù)ShowCategoryName是可選的，數(shù)據(jù)標(biāo)簽的分類名稱。參數(shù)ShowValue是可選的，數(shù)據(jù)標(biāo)簽的值。參數(shù)ShowPercentage是可選的，數(shù)據(jù)標(biāo)簽的百分比。參數(shù)ShowBubbleSize是可選的，數(shù)據(jù)標(biāo)簽的氣泡尺寸。參數(shù)Separator是可選的，數(shù)據(jù)標(biāo)簽的分隔符。第14、15行代碼設(shè)置新創(chuàng)建的圖表有可見(jiàn)的標(biāo)題并設(shè)置圖表標(biāo)題的文字。應(yīng)用于Chart對(duì)象的HasTitle屬性，如果坐標(biāo)軸或圖表有可見(jiàn)標(biāo)題，則該值為True，而ChartTitle屬性返回一個(gè)ChartTitle對(duì)象，代表指定圖表的標(biāo)題。第16行到第20行代碼設(shè)置圖表標(biāo)題文字的格式。第21行到第25行代碼設(shè)置圖表區(qū)的顏色。第26行到第30行代碼設(shè)置繪圖區(qū)的顏色。第31行代碼刪除圖表上第一個(gè)數(shù)據(jù)系列中的數(shù)據(jù)標(biāo)簽。SeriesCollection方法返回圖表或圖表組中單個(gè)數(shù)據(jù)系列（Series對(duì)象)或所有數(shù)據(jù)系列的集合（SeriesCollection集合)的對(duì)象，語(yǔ)法如下：expressio