vba图表常用命令..docVIP

ActiveSheet.UsedRange.Rows.Count 获取工作表的行数(注：考虑向前兼容性) Cells.Item(5,C) 引单元格 C5 Cells.Item(5,3) 引单元格 C5 Application.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 选中当前工作表中图表 Chart1 ActiveSheet.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