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编辑器。
