VBA以GIF文件格式导出Excel图表

Excel中使用VBA把图表保存为一个GIF文件是很容易的：只需要使用Chart对象的Export函数。下面是一个简单的宏，它把当前的图表保存为名为mychart.gif的GIF文件：

Sub ExportToGIF()
  If ActiveChart Is Nothing Then
    MsgBox "请先选择一个图表"
  Else
    ActiveChart.Export "mychart.gif"
  End If
End Sub

上面这个宏首先检查确保图表是当前已激活的。如果是，则把图表保存到当前目录。

如果要提示用户选择文件名及位置，则使用下面的宏。这个宏使用GetSaveAsFilename函数以一个默认文件名(图表的名字)和目录显示一个对话框。用户然后可以接受这些默认设置值或者选择一个不同的目录或者文件名。执行这个宏时会显示一个对话框。

Sub SaveAsGIF()
  Dim FileName As Variant
  If ActiveChart Is Nothing Then
    MsgBox "请先选择一个图表"
    Exit Sub
  End If
  'Get the filename
  FileName = Application.GetSaveAsFilename( _
     InitialFileName := ActiveChart.Name & ".gif", _
     FileFilter := "GIF Files (*.gif), *.gif", _
     Title := "保存图表为GIF文件")
  If FileName <> False Then
    ActiveChart.Export FileName, "GIF"
  End If
End Sub

在VBA窗体中显示Excel图表

如果使用上面提到的方法用GIF格式导出了Excel图表，那么也可以进一步在窗体Form中显示该图表，只需在窗体中添加一个图像控件Image，然后Image1.Picture = LoadPicture(FileName)即可，Image1为添加的图像控件的名称，而FileName为导出的GIF文件全名。