摘要： 使用Excel VBA可以将工作表中的图表复制为图片，实现这种操作使用的是ChartObjects对象的CopyPicture方法。本文介绍将Excel中图表复制为图片的具体操作方法。 1、...
使用Excel VBA可以将工作表中的图表复制为图片，实现这种操作使用的是ChartObjects对象的CopyPicture方法。本文介绍将Excel中图表复制为图片的具体操作方法。
1、启动Excel并打开包含图表的工作表，打开Visual Basic编辑器，在工程资源管理器中添加一个模块，在模块的“代码”窗口中输入程序代码，如图1所示。具体的程序代码如下所示：
Sub CopyChart()
If ActiveChart Is Nothing Then
MsgBox "请先选择一个图表!"
Exit Sub
End If
ActiveChart.CopyPicture appearance:=xlScreen,Format:=xlBitmap
Range("N8").Select
ActiveSheet.Paste
End Sub
图1 插入模块并输入程序代码
因为只有123一个数字
函数COUNT在计数时，将把数值型的数字计算进去;但是错误值、空值、逻辑值、日期、文字则被忽略。如果参数是一个数组或引用，那么只统计数组或引用中的数字;数组中或引用的空单元格、逻辑值、文字或错误值都将忽略。如果要统计逻辑值、文字或错误值，请使用函数COUNTA(COUNTIF按EXCEL的说明也行，但常出毛病)。
提示
在VBA中，CopyPicture方法能够将选中的图表作为图片复制到剪贴板中，该方法的语法结构如下所示：
表达式CopyPicture(Appearance,Format)
这里，表达式是一个代表ChartObject对象的变量。该方法的Appearance参数是一个可选参数，用于设置图片的复制方式，其默认值为xlScreen。该参数可以设置为下面的两个常量之一。
xlPrinter：图片按其打印效果进行复制。
xlScreen：图片尽可能按其屏幕显示进行复制。
Format参数用于设置图片复制的格式，其默认值为xlPicture。该参数可以设置为下面的两个常量之一。
xlBitmap：位图(.bmp、.jpg、.gif)。
xlPicture：绘制图片(.png、.wmf、.mix)。
2、按F5键运行程序，如果没有选择工作表中的图表，则程序给出提示，提示用户先选择图表，如图2所示;如果已经选择了工作表中的图表，则选择图表被复制，如图3所示。
图2 提示选择图表
图3 选择图表被复制为图片
Excel如何批量生成工作表
具体要求是：在Excel表格里面已经有了这些工作表名称，如何快速生成9张工作表，并且9张工作表的名字分别是：一部门、二部门……九部门。也就是Excel批量生成制定名称的工作表，如何实现? 有人可能会说用VBA，对于我这样不会VBA的小白来说，就毫无办法了吗?突然想到数据透视表里面有一个
