使用VBA自动生成图表

admin

1. Sub ChartAdd()
   
2.       Dim myRange As Range
   # c, A5 M' D7 Z4 i; K9 J5 b7 X
3.       Dim myChart As ChartObject
   4 s. C$ |% d, U3 u/ n# z( ]8 D
4.       Dim R As Integer
   
5.       With Sheet1
   
6.           .ChartObjects.Delete
   
7.           R = .Range("A65536").End(xlUp).Row
   
8.           Set myRange = .Range("A" & 1 & ":B" & R)
   
9.           Set myChart = .ChartObjects.Add(120, 40, 400, 250)
   3 P+ y- ~/ S+ k1 _5 Q
10.           With myChart.Chart
    
11.               .ChartType = xlColumnClustered
    
12.               .SetSourceData Source:=myRange, PlotBy:=xlColumns
    
13.               .ApplyDataLabels ShowValue:=True
    0 u" }9 }# k  a" }5 s8 }
14.               .HasTitle = True
    7 r0 c, g! c: n0 n: w
15.               .ChartTitle.Text = "图表制作示例"
    
16.                With .ChartTitle.Font
    + g: }' V5 |% @% P( \3 c
17.                   .Size = 20
    2 h$ f# D& \. A$ f( ~
18.                   .ColorIndex = 3
    
19.                   .Name = "华文新魏"
    
20.               End With
    
21.               With .ChartArea.Interior
    
22.                   .ColorIndex = 8
    5 Y( Z1 v! o% G+ f
23.                   .PatternColorIndex = 1
    7 r& _( i3 C' P! q: W
24.                   .Pattern = xlSolid
    
25.               End With
    + u  z4 y% b9 j* Y
26.               With .PlotArea.Interior
    
27.                   .ColorIndex = 35
    
28.                   .PatternColorIndex = 1
    
29.                   .Pattern = xlSolid
    
30.               End With
    
31.               .SeriesCollection(1).DataLabels.Delete
    : E: f. F7 q) @" Y- K% B8 n2 A
32.               With .SeriesCollection(2).DataLabels.Font
    
33.                   .Size = 10
    ; A0 S" ?1 m/ t/ v2 j( K# m! X
34.                   .ColorIndex = 5
    
35.               End With
    ; F2 F% @+ e' F, l3 m
36.           End With
    
37.       End With
    
38.       Set myRange = Nothing
    
39.       Set myChart = Nothing
    
40. End Sub

复制代码

代码解析：
* B6 q, N8 V. n' o# h" {) \ChartAdd过程在工作表中自动生成图表，图表类型为簇状柱形图。
第6行代码使用Delete方法删除工作表中已经存在的图表，而ChartObjects方法返回代表工作表中单个嵌入图表（ChartObject对象）或所有嵌入图表的集合（ChartObjects对象）的对象，语法如下：
expression.ChartObjects(Index)
其中参数Index是可选的，指定图表的名称或号码。该参数可以是数组，用于指定多个图表，因为示例中只有一个图表，所以无需指定其Index参数。
第8行代码指定图表的数据源。
第9行代码使用Add方法创建一个新图表，应用于ChartObjects对象的Add方法创建新的嵌入图表，语法如下：
9 H  p7 Z: W0 }5 T; mexpression.Add(Left, Top, Width, Height)
1 V  d  @; u% G参数Left、Top是必需的，以磅为单位给出新对象的初始坐标，该坐标是相对于工作表上单元格A1的左上角或图表的左上角的坐标。
$ S- R' N% R% L. ?4 p* E6 o0 C3 C. z参数Width、Height是必需，以磅为单位给出新对象的初始大小。
1 C% k& }. P3 ^+ d2 ^! {第10行代码使用Chart属性返回新创建的图表，应用于ChartObject对象的Chart属性返回一个Chart对象，该对象代表指定对象所包含的图表。
/ Z& M% {7 `' W9 k* M4 h第11行代码指定新创建图表的图表类型，应用于Chart对象的ChartType属性返回或设置图表的类型，可以为XlChartType常量之一，具体请参阅VBA帮助。本例中设置为xlColumnClustered即图表类型为簇状柱形图。
第12行代码指定图表的数据源和绘图方式，应用于Chart对象的SetSourceData方法为指定图表设置源数据区域，语法如下：
expression.SetSourceData(Source, PlotBy)
参数expression是必需的，该表达式返回一个Chart对象。
3 A  e) p0 c" _; }1 T参数Source是可选的，源数据的区域。
参数PlotBy是可选的，指定数据绘制方式，可为xlColumns（系列产生在列）或xlRows（系列产生在行）。
0 e7 c" m" F% W' ~第13行代码使用ApplyDataLabels方法使图表显示数据标签和数据点的值，应用于Chart对象的ApplyDataLabels方法将数据标签应用于图表中的某一数据点、某一数据系列或所有数据系列，语法如下：
expression.ApplyDataLabels(Type, LegendKey, AutoText, HasLeaderLines, ShowSeriesName, ShowCategoryName, ShowValue, ShowPercentage, ShowBubbleSize, Separator)
: Z& L) D: ?7 y参数expression是必需的，该表达式返回一个Chart对象。
参数Type是可选的，要应用的数据标签的类型，可为表格 60 1所列的XlDataLabelsType 常量之一

第14、15行代码设置新创建的图表有可见的标题并设置图表标题的文字。应用于Chart对象的HasTitle属性，如果坐标轴或图表有可见标题，则该值为True，而ChartTitle属性返回一个ChartTitle对象，代表指定图表的标题。

第16行到第20行代码设置图表标题文字的格式。

第21行到第25行代码设置图表区的颜色。

第26行到第30行代码设置绘图区的颜色。

第31行代码删除图表上第一个数据系列中的数据标签。SeriesCollection方法返回图表或图表组中单个数据系列（Series对象)或所有数据系列的集合（SeriesCollection集合)的对象，语法如下：

expression.SeriesCollection(Index)

可选的Index参数指定数据系列的名称或编号。

而DataLabels方法则返回代表数据系列中的单个数据标签（DataLabel对象）或所有数据标签的集合（DataLabels集合）的对象，语法如下：

expression.DataLabels(Index)

可选的Index参数指定数据系列中的数据标签的编号。

第32行到第36行代码设置图表上第二个数据系列中的数据标签的字体格式。

运行ChartAdd过程，在工作表中创建簇状柱形图，如图 60 - 1 所示