|
|
|
Excel技巧：将图表另存为GIF文件 |
|
|
作者：未知 来源：未知 加入时间：2006-2-10 人气：120 |
<P style="TEXT-INDENT: 2em">我们有时需要在网页中插入一个图表，或者在其它非Office程序中用到图表，有没有一种办法可以将Excel工作簿中的图表插入到其它程序中呢？其实可以通过把工作表存为一个HTML文件的方式来实现，在另存为网页时，Excel会自动将图表转换为GIF文件。如果你觉得这样做麻烦的话，也可以利用Office自带的VBA编辑器来编写一个简单的宏来完成这个工作。</P>
<P style="TEXT-INDENT: 2em">具体操作步骤如下：</P>
<P style="TEXT-INDENT: 2em"><B>1.创建练习用的图表</B></P>
<P style="TEXT-INDENT: 2em">启动Excel,默认的工作簿为Book1,首先我们在工作表Sheet1中输入如图1所示的数据。这儿要注意，数据的起伏不要太大，以免创建的图表有失协调。</P>
<P style="TEXT-INDENT: 2em">
<CENTER><IMG src="http://cimg.163.com/catchpic/C/C0/C072B14196D0DEDC3B0601125BB7F170.JPG" border=0></CENTER>
<CENTER>图1</CENTER>
<P style="TEXT-INDENT: 2em">选中A1到E5单元格，然后执行菜单命令“插入>图表”，打开“图表向导”对话框，在对话框中直接单击“完成”按钮，则会创建出如图2所示的图表。</P>
<P style="TEXT-INDENT: 2em">
<CENTER><IMG src="http://cimg.163.com/catchpic/2/2A/2A2EDF53685C6D8D2413E963A6E2A302.JPG" border=0></CENTER>
<CENTER>图2</CENTER>
<P style="TEXT-INDENT: 2em"><B>2.创建宏</B></P>
<P style="TEXT-INDENT: 2em">按快捷键Alt+F11键，打开Visual Basic编辑器。在“工程”窗口中选中图表所在的工作簿，然后执行菜单命令“插入>模块”，打开“模块1”窗口，在窗口中输入以下四行代码，如图3所示。</P>
<P style="TEXT-INDENT: 2em">Sub SaveChartAsGIF () </P>
<P style="TEXT-INDENT: 2em">Fname = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif" </P>
<P style="TEXT-INDENT: 2em">ActiveChart.Export FileName:=Fname, FilterName:="GIF" </P>
<P style="TEXT-INDENT: 2em">End Sub </P>
<P style="TEXT-INDENT: 2em"></P>
<P style="TEXT-INDENT: 2em">
<CENTER><IMG src="http://cimg.163.com/catchpic/4/46/460666C96E485BBEACC3E4A69B4F59A9.jpg" border=0></CENTER>
<CENTER>图3</CENTER>
<P style="TEXT-INDENT: 2em">代码输入完成后，不要忘记存盘。存盘后关闭Visual Basic编辑器。</P>
<P style="TEXT-INDENT: 2em"><B>3.执行宏</B></P>
<P style="TEXT-INDENT: 2em">回到Excel窗口，将工作簿保存到某一文件夹中，选中图表，然后按快捷键Alt+F8键，打开“宏”对话框。选中“SaveChartAsGIF”宏，并单击“执行”按钮，如图4所示。</P>
<P style="TEXT-INDENT: 2em">
<CENTER><IMG src="http://cimg.163.com/catchpic/F/FA/FA75F65C871E58F24C0402E977298D13.JPG" border=0></CENTER>
<CENTER>图4</CENTER>
<P style="TEXT-INDENT: 2em">运行宏之后所生成的GIF文件会以图表的名称来命名，并被保存到该工作簿所在的文件夹，打开该文件夹，就可以看到生成的GIF文件，使用任一图象浏览软件即可浏览该文件，在其它程序当中可以很方便地插入这个GIF文件。</P>
<P style="TEXT-INDENT: 2em">注意：由于这个简单的宏没有错误检查机制，所以如果在执行宏之前没有选中图表或者工作簿未存盘，都会出现错误提示。</p>
|
|
相关文章：
相关软件：
|
|
|
