近日有关于怎样将Excel中图表复制为图片的问题受到了很多网友们的关注，大多数网友都想要知道怎样将Excel中图表复制为图片的具体情况，那么关于到怎样将Excel中图表复制为图片的相关信息，小编也是在网上进行了一系列的信息，那么接下来就由小编来给大家分享下小编所收集到与怎样将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　插入模块并输入程序代码

提示

在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　选择图表被复制为图片