VBA图表剖析
一、图表各元素在VBA中的表达方式 1、图表区
VBA名称：ChartArea 2、绘图区
VBA名称：PlotArea
调整绘图区的大小以及在图表中的位置，指定绘图区的Top、Left、Height和Width属性。 3、数据系列 VBA名称：Series
指定给定系列语法：ChatObject.SeriesCollection(Index)，其中Index是数字范围，从1开始，最大值是图表中系列的数量或系列名称的数量。 4、图表轴 VBA名称：Axis
指定给定轴的简单语法：ChatObject.Axes(Type)，其中Type指定轴的Excel VBA常量。 辅助轴
语法：ChatObject.Axes(Type，AxisGroup)。 5、网格线
VBA名称：HasMajorGridlines和HasMinorGridlines
根据需要可以选择显示或者不显示主要网格线或次要网格线。若显示网格线，可以设置线条的图案(颜色、线宽、线条样式等等)。 6、数据标签
VBA名称：DataLabels和DataLabel
(1)图表中所有系列的所有点显示特定类型的数据标签或不显示数据标签： ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowNone (2)特定系列显示数值(Y)作为数据标签： With ActiveChart.SeriesCollection(“Xdata”) .HasDataLabels=True
.ApplyDataLabels Type:=xlDataLabelsShowValue End With
(3)特定的点在它的数据标签中显示文字
With ActiveChart.SeriesCollection(“Xdata”).Points(1)
.HasDataLabels=True .DataLabel.Text=”MyLabel” End With
(4)将公式放置在某个系列上的某特定点的数据标签中(在公式中需使用RC样式) With ActiveChart.SeriesCollection(“Xdata”).point(1) .HasDataLabels=True
.DataLabel.Text=”Sheet1.R1C1” End With
7、图表标题、图例和数据表
VBA名称：ChartTitle、HasLegend和HasDataTable 可以用VBA指定图表标题和图例的位置、文字和文字格式。 8、趋势线和误差线
VBA名称：Trendlines和ErrorBar 二、图表类型
Excel标准图表类型
图表类型 柱形图 描述 簇状柱形图 3D簇状柱形图 堆积柱形图 3D堆积柱形图 百分比堆积柱形图 3D百分比堆积柱形图 3D柱形图 簇状条形图 3D簇状条形图 堆积条形图 3D堆积条形图 百分比堆积条形图 3D百分比堆积条形图 折线图 数据点折线图 堆积折线图 堆积数据点折线图 百分比堆积折线图 百分比堆积数据点折线图 3D折线图 饼图 分离型饼图 3D饼图 分离型3D饼图 复合饼图 复合条饼图 散点图 平滑线散点图 无数据点平滑线散点图 折线散点图 无数据点折线散点图 气泡图 Excel VBA常量 xlColumnClustered xl3DColumnClustered xlColumnStacked xl3DColumnStacked xlColumnStacked100 xl3DColumnStacked100 xl3DColumn xlBarClustered xl3DBarClustered xlBarStacked xl3DBarStacked xlBarStacked100 xl3DBarStacked100 xlLine xlLineMarkers xlLineStacked xlLineMarkersStacked xlLineStacked100 xlLineMarkersstacked100 xl3DLine xlPie xlPieExploded xl3DPie xl3DPieExploded xlPieOfPie xlBarOfPie xlXYScatter xlXYScatterSmooth xlXYScatterSmoothNoMarkers xlXYScatterLines xlXYScatterLinesNoMarkers xlBubble 条形图 折线图 饼图 XY(散点)图 气泡图 面积图 圆环图 雷达图 曲面图 股价图 圆柱图 圆锥图 棱锥图 3D气泡图 面积图 3D面积图 堆积面积图 3D堆积面积图 百分比堆积面积图 3D百分比堆积面积图 圆环图 分离型圆环图 雷达图 数据点雷达图 填充雷达图 3D曲面图 曲面图(俯视) 3D曲面图(框架图) 曲面图(俯视框架图) 盘高-盘低-收盘图 成交量-盘高-盘低-收盘图 开盘-盘高-盘低-收盘图 成交量-开盘-盘高-盘低-收盘图 柱形圆柱图 条形圆柱图 堆积柱形圆柱图 堆积条形圆柱图 百分比堆积柱形圆柱图 百分比堆积条形圆柱图 3D柱形圆柱图 柱形圆锥图 条形圆锥图 堆积柱形圆锥图 堆积条形圆锥图 百分比堆积柱形圆锥图 百分比堆积条形圆锥图 3D柱形圆锥图 柱形棱锥图 条形棱锥图 堆积柱形棱锥图 堆积条形棱锥图 百分比堆积柱形棱锥图 百分比堆积条形棱锥图 3D柱形棱锥图 xlBubble3DEffect xlArea xl3DArea xlAreaStacked xl3DAreaStacked xlAreaStacked100 xl3DAreaStacked100 xlDoughnut xlDoughnutExploded xlRadar xlRadarMarkers xlRadarFilled xlSurface xlSurfaceTopView xlSurfaceWireframe xlSurfaceWireframeTopView xlStockHLC xlStockVHLC xlStockOHLC xlStockVOHLC xlCylinderColClustered xlCylinderBarColClustered xlCylinderColStacked xlCylinderBarStacked xlCylinderColStacked100 xlCylinderBarStacked100 xlCylinderCol xlConeColClustered xlConeBarClustered xlConeColStacked xlConeBarStacked xlConeColStacked100 xlConeBarStacked100 xlConeCol xlPyramidColClustered xlPyramidBarClustered xlPyramidColStacked xlPyramidBarStacked xlPyramidColStacked100 xlPyramidBarStacked100 xlPyramidCol vba图表常用命令
ActiveSheet.UsedRange.Rows.Count 获取工作表的行数(注：考虑向前兼容性) Cells.Item(5,\ 引单元格 C5 Cells.Item(5,3)
引单元格 C5
Application.WorksheetFunction.IsNumber(\ 使用工作表函数检查 A1单元格中的数据是否为数字
Range(\ 激活单元格区域 A 列中最大值的单元格
Cells(8,8).FormulaArray=\ 在单元格中输入数组公式。注意必须使用 R1C1 样式的表达式 ActiveSheet.ChartObjects.Count 获取当前工作表中图表的个数
ActiveSheet.ChartObjects(\ 选中当前工作表中图表 Chart1
ActiveSheet.ChartObjects(\ 选中当前图表区域
ActiveChart.ChartArea.Select 选中当前图表区域
WorkSheets(\ 更改工作表中图表的图表区的背景颜色 Sheets(\ 更改图表工作表中图表区的颜色 Charts.Add 添加新的图表工作表
ActiveChart.SetSourceData Source:=Sheets(\指定图表数据源并按列排列
ActiveChart.Location Where:=xlLocationAsNewSheet 新图表作为新图表工作表
ActiveChart.PlotArea.Interior.ColorIndex=xlNone 将绘图区颜色变为白色
WorkSheets(\FileName:=\MyChart.gif\
将图表 1 导出到 C 盘上并命名为MyChart.gif ActiveSheet.ChartObjects.Delete 删除工作表上所有的 ChartObject对象 ActiveWorkbook.Charts.Delete 删除当前工作簿中所有的图表工作表
?
Excel中的VBA常量和编码值所代表的标准图表类型
：
图表类型——描述——Excel VBA常量—— 编码值
(注：下面按此顺序排列)
—————————————————————————— 柱形图—簇状柱形图— xlColumnClustered — 51 3D簇状柱形图—xl3DColumnClustered—54 堆积柱形图—xlColumnStacked— 52 3D堆积柱形图—xl3DColumnStacked — 55 百分比堆积柱形图— xlColumnStacked100—53 3D百分比堆积柱形图— xl3DColumnStacked100— 56 3D柱形图—xl3DColumn— -4100
—————————————————————————— 条形图 — 簇状条形图—xlBarClustered— 57 3D簇状条形图— xl3DBarClustered— 60 堆积条形图— xlBarStacked— 58 3D堆积条形图— xl3DBarStacked— 61 百分比堆积条形图— xlBarStacked100— 59 3D百分比堆积条形图— xl3DBarStacked100— 62 —————————————————————————— 折线图— 折线图— xlLine— 4
数据点折线图— xlLineMarkers — 65 堆积折线图— xlLineStacked— 63
堆积数据点折线图— xlLineMarkersStacked— 66 百分比堆积折线图— xlLineStacked100— 64