怎样将Excel中图表复制为图片
2024-09-15 12:20:30来源:www.luwei123.com发布:LR
使用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 插入模块并输入程序代码
提示
在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 选择图表被复制为图片
上一篇: word右键怎么增加图片另存为 下一篇: 最后一篇
相关阅读
- 09-15 word右键怎么增加图片另存为
- 09-15 word2003文档整版变成蓝色怎样去掉
- 09-15 WORD可以批量删除错号和对号吗
- 09-15 如何判断电脑是win7RTM还是win7sp1?
- 09-15 win7如何将outlook邮件导出?
- 09-15 iis的64位win8.1的配置是什么?
- 09-15 Win8系统下如何让outlook自动归类文件?
- 09-15 win8.1系统玩大富翁4游戏画面显示不全怎么恢复
- 09-15 win10系统关闭不了语音讲述怎么办
- 09-15 win10中blender模型隐藏不见了如何取消隐藏?
- 09-15 win10怎么锁定布局?
- 09-15 win10系统下怎样使用hd tune pro工具