其默认值为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选择图表被复制为图片
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
什么是Windows 10X?微软Windows 10X新系统详情介绍
![](https://img.aspxhome.com/file/2023/28/a241135_0s.jpg)
希沃白板如何绑定微信?希沃白板绑定微信的方法
PortAOL.exe是什么进程 PortAOL是什么进程
ppt怎么设计创意文字? ppt做花朵艺术字的技巧
![](https://img.aspxhome.com/file/2023/10/a345482_0s.png)
Win11d盘为什么扩展不了 Win11d盘扩展不了原因及解决方法
![](https://img.aspxhome.com/file/2023/27/a236741_0s.jpg)
Win11无法运行mumu模拟器解决方法教程
![](https://img.aspxhome.com/file/2023/1/a275349_0s.jpg)
善用Win7录屏功能(问题步骤记录器)快速解决系统问题
![](https://img.aspxhome.com/file/2023/29/a256609_0s.jpg)
用wps表格批量生成指定文件夹名称?
![](https://img.aspxhome.com/file/2023/8/a163628_0s.png)
Win10第三方软件字体模糊怎么解决?
![](https://img.aspxhome.com/file/2023/2/52822_0s.jpg)
Win10系统通过注册表编辑器取消锁屏功能介绍
![](https://img.aspxhome.com/file/2023/4/a307049_0s.jpg)
第四节:word插入、设计、布局、邮件、审阅基本功能操作演示
![](https://img.aspxhome.com/file/2023/1/34251_0s.gif)
苹果电脑能否安装Win11 苹果电脑安装Mac Win11不符合条件怎么办
![](https://img.aspxhome.com/file/2023/27/a236666_0s.png)
M1芯片的Mac电脑如何进入到恢复模式?
![](https://img.aspxhome.com/file/2023/3/a208973_0s.png)
Win10提示无法使用内置管理员账户打开应用怎么办?
![](https://img.aspxhome.com/file/2023/26/a224458_0s.jpg)
Win10怎么彻底删除流氓软件?
![](https://img.aspxhome.com/file/2023/6/49566_0s.jpg)
Win10系统下sound blaster cinema提示找不到音频设备怎么办?
![](https://img.aspxhome.com/file/2023/26/a225280_0s.jpg)
WPS2016中怎么将除法计算的过程以竖排的形式显示出来?
![](https://img.aspxhome.com/file/2023/5/a166725_0s.jpg)
如何彻底删除软件的 Icloud 数据(Mac / iOS)
![](https://img.aspxhome.com/file/2023/1/a209811_0s.png)
光影精灵9如何重装Win10系统?光影精灵9笔记本重装电脑系统的教程
![](https://img.aspxhome.com/file/2023/25/a216838_0s.png)
Win10系统笔记本打字不显示字出来怎么办?
![](https://img.aspxhome.com/file/2023/0/46360_0s.png)