Excel技巧:将图表另存为GIF文件

我们有时需要在网页中插入一个图表,或者在其它非Office程序中用到图表,有没有一种办法可以将Excel工作簿中的图表插入到其它程序中呢?其实可以通过把工作表存为一个HTML文件的方式来实现,在另存为网页时,Excel会自动将图表转换为GIF文件。如果你觉得这样做麻烦的话,也可以利用Office自带的VBA编辑器来编写一个简单的宏来完成这个工作。

具体操作步骤如下:

1.创建练习用的图表

启动Excel,默认的工作簿为Book1,首先我们在工作表Sheet1中输入如图1所示的数据。这儿要注意,数据的起伏不要太大,以免创建的图表有失协调。



图1

选中A1到E5单元格,然后执行菜单命令“插入>图表”,打开“图表向导”对话框,在对话框中直接单击“完成”按钮,则会创建出如图2所示的图表。



图2

2.创建宏

按快捷键Alt+F11键,打开Visual Basic编辑器。在“工程”窗口中选中图表所在的工作簿,然后执行菜单命令“插入>模块”,打开“模块1”窗口,在窗口中输入以下四行代码,如图3所示。

Sub SaveChartAsGIF ()

Fname = ThisWorkbook.Path & "" & ActiveChart.Name & ".gif"

ActiveChart.Export FileName:=Fname, FilterName:="GIF"

End Sub



图3

代码输入完成后,不要忘记存盘。存盘后关闭Visual Basic编辑器。

3.执行宏

回到Excel窗口,将工作簿保存到某一文件夹中,选中图表,然后按快捷键Alt+F8键,打开“宏”对话框。选中“SaveChartAsGIF”宏,并单击“执行”按钮,如图4所示。



图4

运行宏之后所生成的GIF文件会以图表的名称来命名,并被保存到该工作簿所在的文件夹,打开该文件夹,就可以看到生成的GIF文件,使用任一图象浏览软件即可浏览该文件,在其它程序当中可以很方便地插入这个GIF文件。

注意:由于这个简单的宏没有错误检查机制,所以如果在执行宏之前没有选中图表或者工作簿未存盘,都会出现错误提示。

(0)

相关推荐

  • 打开一个Excel模板文件填充数据另存为一个文件

    string strFileName = Environment.CurrentDirectory+@"/template/template.tpl"; string strSaveFileName ...

  • Excel代码教程 模板文件填充数据另存为一个文件

    今天我们来分享Excel模板代码的教程,看看如何打开一个Excel模板文件填充数据另存为一个文件。 具体代码如下呈现: string strFileName = Environment.Current ...

  • 将自定义excel图表另存为图表模板后直接使用

    office中excel提供了多个图表模板,在实际使用时常需要在模板图表的基础上再修改,达到个人喜好或公司的统一要求.对多个图表多次操作会占用较多时间,而且是简单重复,excel提供了自定义图表模板, ...

  • Excel技巧:处理折线图表的缺失数据

    Excel技巧:处理折线图表的缺失数据 步骤/方法 01 当在Excel中创建了一个折线图表时,如果数据区域有些单元格数据缺失,也就是该单元格为空白,则折线图中就会出现缺口,这样就导致折线图不美观,或 ...

  • 如何把Excel中图表另存为jpg或gif格式的图片

    在Excel中有些高人的图表非常精美,如何将这些图表转换成图片呢?除了用截图软件,我们其他简单的方法. 操作方法 01 打开Excel,选择图表右击,在弹出的快捷菜单里,选择复制. 02 打开&quo ...

  • 微软Excel技巧:[2]双击XLS/XLSX文件无法打开

    默认情况下,双击XLS.XLSX文件会自动用Excel打开,但有时会因为各种原因导致打开失败,双击后无反应,该怎么办呢? 本文将以Excel2003为例进行讲解. 原因一 01 Excel启动时会自动 ...

  • Excel技巧整理讲解

    常用办公软件 excel技巧的整理、讲解,在这里给读者们看一看,给大家一些提示,希望在你在平时能用得上。 1、两列数据查找相同值对应的位置 =MATCH(B1,A:A,0) 2、已知公式得结果 定义名 ...

  • 常用25条Excel技巧

    很多朋友用Excel处理表格,在使用过程中会遇到各种各样的问题,下面我们为大家整理了25条Excel技巧 ,希望对大家有所帮助。也希望大家认真学习Excel。 1、两列数据查找相同值对应的位置 =MA ...

  • excel技巧:excel怎么有效的提高工作效率

    excel技巧:excel怎么有效的提高工作效率 1.两列项目核对 两个表的数据需要核对出哪些是相同的,当数据很多时如果手工一个个的勾需要很长时间,其实只需要一个小小的公式即刻搞定. =COUNTIF ...