您现在的位置是:首页 > IT资讯 > 软件教程 >

怎样将Excel中图表复制为图片教程

作者:佚名 更新时间:2018-08-14 18:08:00 来源:卡饭 评论

关键字:  怎样将Excel中图表复制为图片教程    

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

本文来源为卡饭,由西西下载站小编独立撰写整理创作而来,禁止一切形式转载。本网站/公司保留按照《中华人民共和国著作权法》追究违者法律责任的权利。
分享:
推荐内容
热点内容

网站服务:

西西下载专题合作 : QQ:2853389662 (请注明广告投放内容)
联系EMAIL :web@down.cc(请注明广告投放内容)

@西西下载

西西下载官方微信

Copyright (C) 2007-2015 DOWN.CC 西西下载, All Rights Reserved 版权声明 | 关于我们 | 联系我们 | 苏ICP备13052634号-3 | 网站地图(XML)