vba图表常用命令

1、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 列中最大值的单

2、元格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.ChartArea.Select

3、选中当前图表区域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&q

4、uot;),PlotBy:=xlColumns 指定图表数据源并按列排列ActiveChart.Location Where:=xlLocationAsNewSheet 新图表作为新图表工作表ActiveChart.PlotArea.Interior.ColorIndex=xlNone 将绘图区颜色变为白色WorkSheets("Sheet1").ChartObjects(1).Chart.Export FileName:="C：MyChart.gif",FilterName:="GIF" 将图表 1 导出到 C 盘上并命名为MyCh

5、art.gif ActiveSheet.ChartObjects.Delete 删除工作表上所有的 ChartObject对象ActiveWorkbook.Charts.Delete 删除当前工作簿中所有的图表工作表·Excel中的VBA常量和编码值所代表的标准图表类型图表类型描述Excel VBA常量 编码值(注：下面按此顺序排列)柱形图簇状柱形图 xlColumnClustered 51       3D簇状柱形图xl3DColumnClustered54       堆积柱形图xlColumnSta

6、cked 52       3D堆积柱形图xl3DColumnStacked 55       百分比堆积柱形图 xlColumnStacked10053       3D百分比堆积柱形图 xl3DColumnStacked100 56       3D柱形图xl3DColumn   -4100条形图 簇状条形图xlBarClustered 57       3D簇状条形图 x

7、l3DBarClustered 60        堆积条形图  xlBarStacked  58       3D堆积条形图 xl3DBarStacked 61       百分比堆积条形图 xlBarStacked100 59       3D百分比堆积条形图 xl3DBarStacked100 62折线图 折线图 xlLine 4     &

8、#160; 数据点折线图 xlLineMarkers 65       堆积折线图 xlLineStacked 63       堆积数据点折线图 xlLineMarkersStacked 66       百分比堆积折线图 xlLineStacked100 64       百分比堆积数据点折线图 xlLineMarkersstacked100 67       3D折线图 xl3DLine&#

9、160; -4101饼图 饼图 xlPie  5       分离型饼图 xlPieExploded  69       3D饼图 xl3DPie  -4102       分离型3D饼图 xl3DPieExploded 70       复合饼图 xlPieOfPie 68       复合条饼图 xlBarOfPie 71X

10、Y(散点)图 散点图 xlXYScatter   -4169       平滑线散点图 xlXYScatterSmooth 72       无数据点平滑线散点图 xlXYScatterSmoothNoMarkers 73       折线散点图 xlXYScatterLines 74       无数据点折线散点图 xlXYScatterLinesNoMarkers 75气泡图 气泡图 xlBubble 15

11、60;      3D气泡图 xlBubble3DEffect 87面积图 面积图 xlArea 1       3D面积图 xl3DArea    -4098       堆积面积图 xlAreaStacked 76       3D堆积面积图   xl3DAreaStacked 78       百分比堆积面积图   xlAreaStacked

12、100   77       3D百分比堆积面积图 xl3DAreaStacked100   79圆环图 圆环图   xlDoughnut    -4120       分离型圆环图   xlDoughnutExploded    80雷达图 雷达图 xlRadar   -4151       数据点雷达图 xlRad

13、arMarkers 81       填充雷达图 xlRadarFilled   82曲面图   3D曲面图 xlSurface 83       曲面图(俯视)   xlSurfaceTopView   85       3D曲面图(框架图) xlSurfaceWireframe 84       曲面图(俯视框架图)   xlSurf

14、aceWireframeTopView 86股价图 盘高-盘低-收盘图 xlStockHLC   88       成交量-盘高-盘低-收盘图 xlStockVHLC 90       开盘-盘高-盘低-收盘图 xlStockOHLC 89       成交量-开盘-盘高-盘低-收盘图 xlStockVOHLC 91圆柱图   柱形圆柱图 xlCylinderColClustered 92     

15、0; 条形圆柱图 xlCylinderBarClustered 95       堆积柱形圆柱图 xlCylinderColStacked 93       堆积条形圆柱图 xlCylinderBarStacked 96       百分比堆积柱形圆柱图 xlCylinderColStacked100 94       百分比堆积条形圆柱图 xlCylinderBarStacked100 97     &#

16、160; 3D柱形圆柱图 xlCylinderCol 98圆锥图 柱形圆锥图 xlConeColClustered 99       条形圆锥图 xlConeBarClustered 102       堆积柱形圆锥图 xlConeColStacked 100       堆积条形圆锥图 xlConeBarStacked 103       百分比堆积柱形圆锥图 xlConeColStacked100 101   &

17、#160;   百分比堆积条形圆锥图 xlConeBarStacked100 104         3D柱形圆锥图 xlConeCol 105棱锥图 柱形棱锥图 xlPyramidColClustered 106       条形棱锥图 xlPyramidBarClustered 109       堆积柱形棱锥图    xlPyramidColStacked   107 

18、     堆积条形棱锥图    xlPyramidBarStacked   110       百分比堆积柱形棱锥图 xlPyramidColStacked100 108       百分比堆积条形棱锥图   xlPyramidBarStacked100 111       3D柱形棱锥图   xlPyramidCol   11

19、2·回复 举报 #2 颜新祥 2010-01-14 22:17 利用以上参数，可用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, sArrayChartCons

20、t(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(

21、"Sheet2").Cells(iTemp + 1, 2).ValueNext iTempSheets("Sheet1").ActivatesChartTitle = "销售量比较图"sCategoryTitle = "Category标题"sValueTitle = "Value标题"iRows = Sheets("sheet1").UsedRange.Rows.CountOn Error Resume NextSheets("sheet1").Char

22、tObjects.DeleteFor iChartType = 0 To 72 Step 1    Charts.Add    ActiveChart.ChartType = lArrayChartType(iChartType)    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A2:M" & CStr(iRows), PlotBy:=xlRows    ActiveChart.Location

23、 where:=xlLocationAutomatic, Name:="Sheet1"    With ActiveChart        .HasTitle = True        .ChartTitle.Characters.Text = sChartTitle & sArrayChartConst(iChartType) & sArrayChartExplain(iChartType)'        .ChartTitle.Characters.Text = sChartTitle & "xl3DArea"        .Axes(xlCategory, xlPrimary).HasTitle = False    '    .Axes(xlCategory, xlPrimary).AxisTitle.T