Excel VBA可用于将工作表中的图表复制为图片，这是通过使用ChartObjects对象的CopyPicture方法实现的。介绍将Excel中的图表复制成图片的具体操作方法。
1.启动Excel并打开包含图表的工作表，打开Visual Basic编辑器，在项目浏览器中添加一个模块，在模块的“代码”窗口中输入程序代码，如图1所示。具体程序代码如下：
复制子图表()
如果ActiveChart什么都不是，那么
MsgBox '请先选择一个图表！'
出口接头
它将结束，如果.
活动图表.图像外观：=xlScreen，Format:=xlBitmap
范围('N8 ')。选择
活动表.粘贴
终端接头
图1插入模块并输入程序代码。
给个提示。
在VBA，CopyPicture方法可以将选定的图表作为图片复制到剪贴板上。该方法的语法结构如下：
复制图片(外观、格式)
这里，表达式是一个代表ChartObject对象的变量。该方法的Appearance参数是可选参数，用于设置图片的复制方式。它的默认值是xlScreen。该参数可以设置为以下两个常量之一。
XlPrinter:图片根据其打印效果进行复制。
Xl:图片尽量按照其xlScreen显示复制。
Format参数用于设置图片复制的格式，默认值为xlPicture。该参数可以设置为以下两个常量之一。
XlBitmap:位图(。bmp，jpg，gif).
XlPicture:图纸(。Png，wmf，混合)。
2.按F5运行程序。如果工作表中的图表没有选中，程序会提示用户先选中图表，如图2所示；如果工作表中的图表已经被选中，那么选中的图表将被复制，如图3所示。
图2提示您选择一个图表。
图3选择要复制为图片的图表。
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 puzdycom@126.com 举报，一经查实，本站将立刻删除。
