其默认值为xlScreen
发布时间：2023-05-15 08:22:48
使用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选择图表被复制为图片
0
投稿猜你喜欢
在Windows下全选文件重命名会批量生成带序号的同名文件，但是序号外面却有一对小括号，怎样才能删除这些括号呢？有时候为了更整齐的整理大量文- PPT怎么通过图形合并获得新图形？ppt中图形合并经常使用，该怎么合并图形呢？这是很简单的基础教程，下面我们就爱看看详细的教程，需要的朋友可
- 如何使用陪我app和好友进行通话?陪我是一款陌生人电话聊天app，是基于通话的陌生人情感社交软件。想要使用陪我app和好友进行通话，具体该怎
- Win10应用商店服务器出错怎么办？有不少的用户都有遇到Win10应用商店开启的时候显示服务器错误的情况。出现这个问题，可能是自己的电脑网络
- 用户在wps软件中可以编辑各种各样的文件类型，用户可以根据自己的实际情况来选择这需要编辑的文件类型，可以给自己带来
- 想不想以旧换新？苹果以旧换新又折价了！苹果中国官网于近日调整了 Trade In 换购计划收费标准，添加了 iPhone SE（第
- 启动系统自带的"手写输入公式功能"，WinXP/7系统就不用说了大家都知道，下面为大家介绍下Win8系统如何开启手写输入
- hdaudpropshortcut.exe - hdaudpropshortcut进程的详细介绍进程文件： hdaudpropshortcu
- 在同一局域网内进行文件共享不仅传输速度快，还能有效保证信息安全。但是有win10用户想对局域网中计算机进行文件共享，却提示需要输入网络凭证，
- 有小伙伴安装了Win11 22563，发现出现了右键单击任务栏中的Windows图标或Windows键+X将导致 explorer.exe崩
- 微软office怎么卸载不需要的组建？安装微软office的时候，没有注意，就一键安装了，安装完成后，却发现，office中基本上只用wor
- 我们在使用win7系统电脑的时候，常常会遇到win7电脑附件消失不见的情况，那么出现了win7电脑附件消失不见的情况该怎么办呢？下面小编就给
- 许多Win10用户都会遇到这种情况，当按下键盘上的PrtSc截屏键时就会弹出“保存到OneDrive”提示窗口。如图：有些用户不明白这是怎么
- 输入汉语拼音时,需要打出声调.教你几种方法实现它在百度百科创建了一个词条,名称为"本土货(běn tǔ huò)"当实际
- 在工作中，我们总是需要和Word打交道，虽然Word相比起Excel和PPT要简单不少，但是有些小伙伴还是没有办法搞定Word，还是要加班才
- Win10下网卡怎么设置双网工模式提升网速？电脑的王都很慢，其实网卡的网络速度决定了我们电脑的上网快慢，我们可以设置双网工模式提升网速，下面
- 我们可以用RANDBETWEEN函数实时生成随机的整数值。比如，如果要实时生成随机大于50小于100的整数值，该如何操作呢？操作方法打开表格
- 现在大家普遍都会用到电脑，但是在使用电脑系统的时候经常会遇到各种的问题，最近有用户就遇到了开机只有鼠标没有桌面和任务栏，这有可能是因为资源管
- 猎豹浏览器是一款功能强大的浏览器，有非常多的用户喜欢使用猎豹浏览器，包括小编也非常喜欢，不过俗话说的好，萝卜青菜各有所爱，有些不喜欢用猎豹浏
- 机械硬盘也好，固态硬盘也罢，两者谁想把对方完全吃掉，都不太容易。现在希捷宣布，将在全球裁员大约500人，而此举可以为他们在2018财年计入5
