Excel中的VBA常用图表类指令代码.doc

Excel中的VBA常用图表类指令代码Excel中的VBA常用图表类指令代码Excel中的VBA常用图表类指令代码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）。FormulaArray=”=SUM(R2C［-1］：R[—1]C［—1]＊R2C:R[-1]C)"在单元格中输入数组公式。注意必须使用R1C1样式的表达式ActiveSheet。ChartObjects.Count获取当前工作表中图表的个数ActiveSheet.ChartObjects("Chart1")。Select选中当前工作表中图表Chart1ActiveSheet。ChartObjects（”Chart1”)。Activate选中当前图表区域ActiveChart.ChartArea.Select选中当前图表区域WorkSheets（”Sheet1”）.ChartObjects（”Chart2")。Chart。ChartArea。Interior.ColorIndex=2更改工作表中图表的图表区的背景颜色Sheets（"Chart2”)。ChartArea。Interior。ColorIndex=2更改图表工作表中图表区的颜色Charts。Add添加新的图表工作表ActiveChart。SetSourceDataSource：=Sheets（"Sheet1”）。Range（”A1：D5"),PlotBy:=xlColumns指定图表数据源并按列排列ActiveChart.LocationWhere:=xlLocationAsNewSheet新图表作为新图表工作表ActiveChart.PlotArea.Interior.ColorIndex=xlNone将绘图区颜色变为白色WorkSheets(”Sheet1”).ChartObjects(1)。Chart.ExportFileName:="C：MyChart。gif”,FilterName:=”GIF”将图表1导出到C盘上并命名为MyChart。gifActiveSheet.ChartObjects。Delete删除工作表上所有的ChartObject对象ActiveWorkbook.Charts。Delete删除当前工作簿中所有的图表工作表Excel中的VBA常量和编码值所代表的标准图表类型图表类型—-描述-—ExcelVBA常量—-编码值（注:下面按此顺序排列）———————————--————-————————柱形图—簇状柱形图—xlColumnClustered—513D簇状柱形图—xl3DColumnClustered—54堆积柱形图—xlColumnStacked—523D堆积柱形图—xl3DColumnStacked-55百分比堆积柱形图—xlColumnStacked100—533D百分比堆积柱形图—xl3DColumnStacked100—563D柱形图-xl3DColumn—-4100——--———-————---——————-—-——条形图—簇状条形图-xlBarClustered-573D簇状条形图—xl3DBarClustered—60堆积条形图—xlBarStacked—583D堆积条形图—xl3DBarStacked—61百分比堆积条形图—xlBarStacked100—593D百分比堆积条形图—xl3DBarStacked100—62———---———----———--———--———折线图-折线图—xlLine—4数据点折线图—xlLineMarkers-65堆积折线图—xlLineStacked-63堆积数据点折线图-xlLineMarkersStacked-66百分比堆积折线图—xlLineStacked100-64百分比堆积数据点折线图—xlLineMarkersstacked100—673D折线图-xl3DLine—-4101-—-——-———————-—————-——————饼图-饼图—xlPie—5分离型饼图-xlPieExploded—693D饼图-xl3DPie——4102分离型3D饼图—xl3DPieExploded—70复合饼图—xlPieO