1、Excel 中的 VBA 常用图表类指令代码ActiveSheet.UsedRange.Rows.Count获取工作表的行数(注：考虑向前兼容性 )Cells.Item(5,“C“) 引单元格 C5Cells.Item(5,3) 引单元格 C5Application.WorksheetFunction.IsNumber(“A1“) 使用工作表函数检查 A1 单元格中的数据是否为数字Range(“A:A“).Find(Application.WorksheetFunction.Max(Range(“A:A“).Activate 激活单元格区域 A 列中最大值的单元格Cells(8,8).Form
2、ulaArray=“=SUM(R2C-1:R-1C-1*R2C:R-1C)“ 在单元格中输入数组公式。注意必须使用 R1C1 样式的表达式ActiveSheet.ChartObjects.Count 获取当前工作表中图表的个数ActiveSheet.ChartObjects(“Chart1“).Select 选中当前工作表中图表 Chart1ActiveSheet.ChartObjects(“Chart1“).Activate 选中当前图表区域ActiveChart.ChartArea.Select 选中当前图表区域WorkSheets(“Sheet1“).ChartObjects(“Char
3、t2“).Chart.ChartArea.Interior.ColorIndex=2 更改工作表中图表的图表区的背景颜色Sheets(“Chart2“).ChartArea.Interior.ColorIndex=2 更改图表工作表中图表区的颜色Charts.Add 添加新的图表工作表ActiveChart.SetSourceData Source:=Sheets(“Sheet1“).Range(“A1:D5“),PlotBy:=xlColumns 指定图表数据源并按列排列ActiveChart.Location Where:=xlLocationAsNewSheet 新图表作为新图表工作表A
4、ctiveChart.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.Charts.Delete 删除当前工作簿中所有的图表工作表Excel 中的 VBA 常量和编
5、码值所代表的标准图表类型图表类型描述Excel VBA 常量 编码值(注：下面按此顺序排列)柱形图簇状柱形图 xlColumnClustered 513D 簇状柱形图xl3DColumnClustered54堆积柱形图xlColumnStacked 523D 堆积柱形图xl3DColumnStacked 55百分比堆积柱形图 xlColumnStacked100533D 百分比堆积柱形图 xl3DColumnStacked100 563D 柱形图xl3DColumn -4100条形图 簇状条形图xlBarClustered 573D 簇状条形图 xl3DBarClustered 60堆积条形图
6、 xlBarStacked 583D 堆积条形图 xl3DBarStacked 61百分比堆积条形图 xlBarStacked100 593D 百分比堆积条形图 xl3DBarStacked100 62折线图 折线图 xlLine 4数据点折线图 xlLineMarkers 65堆积折线图 xlLineStacked 63堆积数据点折线图 xlLineMarkersStacked 66百分比堆积折线图 xlLineStacked100 64百分比堆积数据点折线图 xlLineMarkersstacked100 673D 折线图 xl3DLine -4101饼图 饼图 xlPie 5分离型饼图
7、xlPieExploded 693D 饼图 xl3DPie -4102分离型 3D 饼图 xl3DPieExploded 70复合饼图 xlPieOfPie 68复合条饼图 xlBarOfPie 71XY(散点 )图 散点图 xlXYScatter -4169平滑线散点图 xlXYScatterSmooth 72无数据点平滑线散点图 xlXYScatterSmoothNoMarkers 73折线散点图 xlXYScatterLines 74无数据点折线散点图 xlXYScatterLinesNoMarkers 75气泡图 气泡图 xlBubble 153D 气泡图 xlBubble3DEffe
8、ct 87面积图 面积图 xlArea 13D 面积图 xl3DArea -4098堆积面积图 xlAreaStacked 763D 堆积面积图 xl3DAreaStacked 78百分比堆积面积图 xlAreaStacked100 773D 百分比堆积面积图 xl3DAreaStacked100 79圆环图 圆环图 xlDoughnut -4120分离型圆环图 xlDoughnutExploded 80雷达图 雷达图 xlRadar -4151数据点雷达图 xlRadarMarkers 81填充雷达图 xlRadarFilled 82曲面图 3D 曲面图 xlSurface 83曲面图(俯视
9、) xlSurfaceTopView 853D 曲面图(框架图) xlSurfaceWireframe 84曲面图(俯视框架图) xlSurfaceWireframeTopView 86股价图 盘高-盘低-收盘图 xlStockHLC 88成交量-盘高- 盘低- 收盘图 xlStockVHLC 90开盘-盘高- 盘低- 收盘图 xlStockOHLC 89成交量-开盘- 盘高- 盘低-收盘图 xlStockVOHLC 91圆柱图 柱形圆柱图 xlCylinderColClustered 92条形圆柱图 xlCylinderBarClustered 95堆积柱形圆柱图 xlCylinderCol
10、Stacked 93堆积条形圆柱图 xlCylinderBarStacked 96百分比堆积柱形圆柱图 xlCylinderColStacked100 94百分比堆积条形圆柱图 xlCylinderBarStacked100 973D 柱形圆柱图 xlCylinderCol 98圆锥图 柱形圆锥图 xlConeColClustered 99条形圆锥图 xlConeBarClustered 102堆积柱形圆锥图 xlConeColStacked 100堆积条形圆锥图 xlConeBarStacked 103百分比堆积柱形圆锥图 xlConeColStacked100 101百分比堆积条形圆锥图
11、xlConeBarStacked100 104 3D 柱形圆锥图 xlConeCol 105棱锥图 柱形棱锥图 xlPyramidColClustered 106条形棱锥图 xlPyramidBarClustered 109堆积柱形棱锥图 xlPyramidColStacked 107堆积条形棱锥图 xlPyramidBarStacked 110百分比堆积柱形棱锥图 xlPyramidColStacked100 108百分比堆积条形棱锥图 xlPyramidBarStacked100 1113D 柱形棱锥图 xlPyramidCol 112利用以上参数，可用 VBA 写出批量产生 Excel
12、图表的程序。代码如下：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(73) As String, sArrayChartExplain(73) As StringFor iTemp =
13、 0 To 72lArrayChartType(iTemp) = Sheets(“Sheet2“).Cells(iTemp + 1, 1).ValuesArrayChartConst(iTemp) = Sheets(“Sheet2“).Cells(iTemp + 1, 3).ValuesArrayChartExplain(iTemp) = Sheets(“Sheet2“).Cells(iTemp + 1, 2).ValueNext iTempSheets(“Sheet1“).ActivatesChartTitle = “销售量比较图“sCategoryTitle = “Category 标题“
14、sValueTitle = “Value 标题“iRows = Sheets(“sheet1“).UsedRange.Rows.CountOn Error Resume NextSheets(“sheet1“).ChartObjects.DeleteFor iChartType = 0 To 72 Step 1Charts.AddActiveChart.ChartType = lArrayChartType(iChartType)ActiveChart.SetSourceData Source:=Sheets(“Sheet1“).Range(“A2:M“ & CStr(iRows), Plot
15、By:=xlRowsActiveChart.Location where:=xlLocationAutomatic, Name:=“Sheet1“With ActiveChart.HasTitle = True.ChartTitle.Characters.Text = sChartTitle & sArrayChartConst(iChartType) & sArrayChartExplain(iChartType) .ChartTitle.Characters.Text = sChartTitle & “xl3DArea“.Axes(xlCategory, xlPrimary).HasTit
16、le = False .Axes(xlCategory, xlPrimary).AxisTitle.Text = sCategoryTitle.Axes(xlValue, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).AxisTitle.Text = sValueTitleEnd WithsChartName = Mid(ActiveChart.Name, 8, 6)ActiveSheet.Shapes(sChartName).Left = Range(“B“ & Str(18 * (iChartType + 1).LeftActiveSheet.Shapes(sChartName).Top = Range(“B“ & Str(18 * (iChartType + 1).TopActiveChart.Export ThisWorkbook.Path & “ & Format(Now(), “yymmddhhmm“) & sArrayChartConst(iChartType) & “.gif“, “gif“Sheets(“sheet1“).ChartObjects(sChartName).DeleteNext iChartTypeEnd Sub注意以上的参数存于 Sheet2 的 1 至 3 列中。
