ExcelVBA处理图形图表大全剖析.docx

1、ExcelVBA处理图形图表大全剖析VBA图表剖析一、图表各元素在VBA中的表达方式1、图表区VBA名称：ChartArea2、绘图区VBA名称：PlotArea调整绘图区的大小以及在图表中的位置，指定绘图区的Top、Left、Height和Width属性。3、数据系列VBA名称：Series指定给定系列语法：ChatObject.SeriesCollection(Index)，其中Index是数字范围，从1开始，最大值是图表中系列的数量或系列名称的数量。4、图表轴VBA名称：Axis指定给定轴的简单语法：ChatObject.Axes(Type)，其中Type指定轴的Excel VBA常量。

2、辅助轴语法：ChatObject.Axes(Type，AxisGroup)。5、网格线VBA名称：HasMajorGridlines和HasMinorGridlines根据需要可以选择显示或者不显示主要网格线或次要网格线。若显示网格线，可以设置线条的图案(颜色、线宽、线条样式等等)。6、数据标签VBA名称：DataLabels和DataLabel(1)图表中所有系列的所有点显示特定类型的数据标签或不显示数据标签：ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowNone(2)特定系列显示数值(Y)作为数据标签：With ActiveChart.

3、SeriesCollection(“Xdata”) .HasDataLabels=True .ApplyDataLabels Type:=xlDataLabelsShowValueEnd With(3)特定的点在它的数据标签中显示文字With ActiveChart.SeriesCollection(“Xdata”).Points(1) .HasDataLabels=True .DataLabel.Text=”MyLabel”End With(4)将公式放置在某个系列上的某特定点的数据标签中(在公式中需使用RC样式)With ActiveChart.SeriesCollection(“Xdat

4、a”).point(1) .HasDataLabels=True .DataLabel.Text=”Sheet1.R1C1”End With7、图表标题、图例和数据表VBA名称：ChartTitle、HasLegend和HasDataTable可以用VBA指定图表标题和图例的位置、文字和文字格式。8、趋势线和误差线VBA名称：Trendlines和ErrorBar二、图表类型Excel标准图表类型图表类型描述Excel VBA常量柱形图簇状柱形图3D簇状柱形图堆积柱形图3D堆积柱形图百分比堆积柱形图3D百分比堆积柱形图3D柱形图xlColumnClusteredxl3DColumnCluste

5、redxlColumnStackedxl3DColumnStackedxlColumnStacked100xl3DColumnStacked100xl3DColumn条形图簇状条形图3D簇状条形图堆积条形图3D堆积条形图百分比堆积条形图3D百分比堆积条形图xlBarClusteredxl3DBarClusteredxlBarStackedxl3DBarStackedxlBarStacked100xl3DBarStacked100折线图折线图数据点折线图堆积折线图堆积数据点折线图百分比堆积折线图百分比堆积数据点折线图3D折线图xlLinexlLineMarkersxlLineStackedxlL

6、ineMarkersStackedxlLineStacked100xlLineMarkersstacked100xl3DLine饼图饼图分离型饼图3D饼图分离型3D饼图复合饼图复合条饼图xlPiexlPieExplodedxl3DPiexl3DPieExplodedxlPieOfPiexlBarOfPieXY(散点)图散点图平滑线散点图无数据点平滑线散点图折线散点图无数据点折线散点图xlXYScatterxlXYScatterSmoothxlXYScatterSmoothNoMarkersxlXYScatterLinesxlXYScatterLinesNoMarkers气泡图气泡图3D气泡图x

7、lBubblexlBubble3DEffect面积图面积图3D面积图堆积面积图3D堆积面积图百分比堆积面积图3D百分比堆积面积图xlAreaxl3DAreaxlAreaStackedxl3DAreaStackedxlAreaStacked100xl3DAreaStacked100圆环图圆环图分离型圆环图xlDoughnutxlDoughnutExploded雷达图雷达图数据点雷达图填充雷达图xlRadarxlRadarMarkersxlRadarFilled曲面图3D曲面图曲面图(俯视)3D曲面图(框架图)曲面图(俯视框架图)xlSurfacexlSurfaceTopViewxlSurface

8、WireframexlSurfaceWireframeTopView股价图盘高-盘低-收盘图成交量-盘高-盘低-收盘图开盘-盘高-盘低-收盘图成交量-开盘-盘高-盘低-收盘图xlStockHLCxlStockVHLCxlStockOHLCxlStockVOHLC圆柱图柱形圆柱图条形圆柱图堆积柱形圆柱图堆积条形圆柱图百分比堆积柱形圆柱图百分比堆积条形圆柱图3D柱形圆柱图xlCylinderColClusteredxlCylinderBarColClusteredxlCylinderColStackedxlCylinderBarStackedxlCylinderColStacked100xlCyl

9、inderBarStacked100xlCylinderCol圆锥图柱形圆锥图条形圆锥图堆积柱形圆锥图堆积条形圆锥图百分比堆积柱形圆锥图百分比堆积条形圆锥图3D柱形圆锥图xlConeColClusteredxlConeBarClusteredxlConeColStackedxlConeBarStackedxlConeColStacked100xlConeBarStacked100xlConeCol棱锥图柱形棱锥图条形棱锥图堆积柱形棱锥图堆积条形棱锥图百分比堆积柱形棱锥图百分比堆积条形棱锥图3D柱形棱锥图xlPyramidColClusteredxlPyramidBarClusteredxlPy

10、ramidColStackedxlPyramidBarStackedxlPyramidColStacked100xlPyramidBarStacked100xlPyramidColvba图表常用命令ActiveSheet.UsedRange.Rows.Count 获取工作表的行数(注：考虑向前兼容性)Cells.Item(5,C) 引单元格 C5Cells.Item(5,3) 引单元格 C5Application.WorksheetFunction.IsNumber(A1) 使用工作表函数检查 A1单元格中的数据是否为数字Range(A:A).Find(Application.Workshee

11、tFunction.Max(Range(A:A).Activate 激活单元格区域 A 列中最大值的单元格Cells(8,8).FormulaArray=SUM(R2C-1:R-1C-1*R2C:R-1C) 在单元格中输入数组公式。注意必须使用 R1C1 样式的表达式ActiveSheet.ChartObjects.Count 获取当前工作表中图表的个数ActiveSheet.ChartObjects(Chart1).Select 选中当前工作表中图表 Chart1ActiveSheet.ChartObjects(Chart1).Activate 选中当前图表区域ActiveChart.Cha

12、rtArea.Select 选中当前图表区域WorkSheets(Sheet1).ChartObjects(Chart2).Chart.ChartArea.Interior.ColorIndex=2 更改工作表中图表的图表区的背景颜色Sheets(Chart2).ChartArea.Interior.ColorIndex=2 更改图表工作表中图表区的颜色Charts.Add 添加新的图表工作表ActiveChart.SetSourceData Source:=Sheets(Sheet1).Range(A1:D5),PlotBy:=xlColumns 指定图表数据源并按列排列ActiveChar

13、t.Location Where:=xlLocationAsNewSheet 新图表作为新图表工作表ActiveChart.PlotArea.Interior.ColorIndex=xlNone 将绘图区颜色变为白色WorkSheets(Sheet1).ChartObjects(1).Chart.Export FileName:=C：MyChart.gif,FilterName:=GIF 将图表 1 导出到 C 盘上并命名为MyChart.gif ActiveSheet.ChartObjects.Delete 删除工作表上所有的 ChartObject对象ActiveWorkbook.Char

14、ts.Delete 删除当前工作簿中所有的图表工作表 Excel中的VBA常量和编码值所代表的标准图表类型图表类型描述Excel VBA常量 编码值(注：下面按此顺序排列)柱形图簇状柱形图 xlColumnClustered 51 3D簇状柱形图xl3DColumnClustered54 堆积柱形图xlColumnStacked 52 3D堆积柱形图xl3DColumnStacked 55 百分比堆积柱形图 xlColumnStacked10053 3D百分比堆积柱形图 xl3DColumnStacked100 56 3D柱形图xl3DColumn -4100条形图 簇状条形图xlBarClu

15、stered 57 3D簇状条形图 xl3DBarClustered 60 堆积条形图xlBarStacked58 3D堆积条形图 xl3DBarStacked 61 百分比堆积条形图 xlBarStacked100 59 3D百分比堆积条形图 xl3DBarStacked100 62折线图 折线图 xlLine 4 数据点折线图 xlLineMarkers 65 堆积折线图 xlLineStacked 63 堆积数据点折线图 xlLineMarkersStacked 66 百分比堆积折线图 xlLineStacked100 64 百分比堆积数据点折线图 xlLineMarkersstacke

16、d100 67 3D折线图 xl3DLine-4101饼图 饼图 xlPie5 分离型饼图 xlPieExploded69 3D饼图 xl3DPie-4102 分离型3D饼图 xl3DPieExploded 70 复合饼图 xlPieOfPie 68 复合条饼图 xlBarOfPie 71XY(散点)图 散点图 xlXYScatter -4169 平滑线散点图 xlXYScatterSmooth 72 无数据点平滑线散点图 xlXYScatterSmoothNoMarkers 73 折线散点图 xlXYScatterLines 74 无数据点折线散点图 xlXYScatterLinesNoMa

17、rkers 75气泡图 气泡图 xlBubble 15 3D气泡图 xlBubble3DEffect 87面积图 面积图 xlArea 1 3D面积图 xl3DArea -4098 堆积面积图 xlAreaStacked 76 3D堆积面积图 xl3DAreaStacked 78 百分比堆积面积图 xlAreaStacked100 77 3D百分比堆积面积图 xl3DAreaStacked100 79圆环图 圆环图 xlDoughnut -4120 分离型圆环图 xlDoughnutExploded80雷达图 雷达图 xlRadar -4151 数据点雷达图 xlRadarMarkers 81

18、 填充雷达图 xlRadarFilled 82曲面图 3D曲面图 xlSurface 83 曲面图(俯视) xlSurfaceTopView 85 3D曲面图(框架图) xlSurfaceWireframe 84 曲面图(俯视框架图) xlSurfaceWireframeTopView 86股价图 盘高-盘低-收盘图 xlStockHLC 88 成交量-盘高-盘低-收盘图 xlStockVHLC 90 开盘-盘高-盘低-收盘图 xlStockOHLC 89 成交量-开盘-盘高-盘低-收盘图 xlStockVOHLC 91圆柱图 柱形圆柱图 xlCylinderColClustered 92 条

19、形圆柱图 xlCylinderBarClustered 95 堆积柱形圆柱图 xlCylinderColStacked 93 堆积条形圆柱图 xlCylinderBarStacked 96 百分比堆积柱形圆柱图 xlCylinderColStacked100 94 百分比堆积条形圆柱图 xlCylinderBarStacked100 97 3D柱形圆柱图 xlCylinderCol 98圆锥图 柱形圆锥图 xlConeColClustered 99 条形圆锥图 xlConeBarClustered 102 堆积柱形圆锥图 xlConeColStacked 100 堆积条形圆锥图 xlConeB

20、arStacked 103 百分比堆积柱形圆锥图 xlConeColStacked100 101 百分比堆积条形圆锥图 xlConeBarStacked100 104 3D柱形圆锥图 xlConeCol 105棱锥图 柱形棱锥图 xlPyramidColClustered 106 条形棱锥图 xlPyramidBarClustered 109 堆积柱形棱锥图xlPyramidColStacked 107 堆积条形棱锥图xlPyramidBarStacked 110 百分比堆积柱形棱锥图 xlPyramidColStacked100 108 百分比堆积条形棱锥图 xlPyramidBarStac

21、ked100 111 3D柱形棱锥图 xlPyramidCol 112 利用以上参数，可用VBA写出批量产生Excel图表的程序。代码如下：Private Sub cmdCompareSales_Click()Dim iRows, iChartType, iChartTypeRows As IntegerDim iTemp As IntegerDim sChartTitle, sCategoryTitle, sValueTitle As StringDim sChartName As StringDim lArrayChartType(73) As Long, sArrayChartConst

22、(73) As String, sArrayChartExplain(73) As StringFor iTemp = 0 To 72 lArrayChartType(iTemp) = Sheets(Sheet2).Cells(iTemp + 1, 1).Value sArrayChartConst(iTemp) = Sheets(Sheet2).Cells(iTemp + 1, 3).Value sArrayChartExplain(iTemp) = Sheets(Sheet2).Cells(iTemp + 1, 2).ValueNext iTempSheets(Sheet1).Activa

23、tesChartTitle = 销售量比较图sCategoryTitle = Category标题sValueTitle = Value标题iRows = Sheets(sheet1).UsedRange.Rows.CountOn Error Resume NextSheets(sheet1).ChartObjects.DeleteFor iChartType = 0 To 72 Step 1 Charts.Add ActiveChart.ChartType = lArrayChartType(iChartType) ActiveChart.SetSourceData Source:=Shee

24、ts(Sheet1).Range(A2:M & CStr(iRows), PlotBy:=xlRows ActiveChart.Location where:=xlLocationAutomatic, Name:=Sheet1 With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = sChartTitle & sArrayChartConst(iChartType) & sArrayChartExplain(iChartType) .ChartTitle.Characters.Text = sChartTitle & xl

25、3DArea .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlCategory, xlPrimary).AxisTitle.Text = sCategoryTitle .Axes(xlValue, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).AxisTitle.Text = sValueTitle End With sChartName = Mid(ActiveChart.Name, 8, 6) ActiveSheet.Shapes(sChartName).Left =

26、Range(B & Str(18 * (iChartType + 1).Left ActiveSheet.Shapes(sChartName).Top = Range(B & Str(18 * (iChartType + 1).Top ActiveChart.Export ThisWorkbook.Path & & Format(Now(), yymmddhhmm) & sArrayChartConst(iChartType) & .gif, gif Sheets(sheet1).ChartObjects(sChartName).Delete Next iChartTypeEnd Sub注意楼上的参数存于Sheet2的1至3列中。VBA-批量调整excel图表格式-线条粗细Excel 画图时默认的线条和标记比较大，写论文时使用起来经常要把线条和标记调小才好看。如果图表比较多，图里的系列也比较多的话，一条一条的设置起来会很麻烦，这里给出了一个宏，使用方法是选中图表后运行宏即可。Sub zoom() zoom 宏 ActiveSheet.