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

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.SetSourceData Source:=Sheets(Sheet1).Range(A1:D5),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 盘上并命名为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 百分比堆积数据点折线图— xlLineMarkersstacked100— 67 3D折线图— xl3DLine—??-4101 ————————————————