该函数将Excel图表导出为指定的GIF文件。

Public Function ExportToGif(ByVal strFileName As String)On Error GoTo hError'--- 检查图表中是否确实存在数据If (oExcelChart.SeriesCollection.Count < = 0) Then Err.Raise Number:=1001 + vbObjectError, _Description:="No data series in chart" ExportToGif = -1 '--- 检查文件名字是否合法ElseIf (IsNull(strFileName) Or Trim(strFileName) = "") Then Err.Raise Number:=1001 + vbObjectError, _Description:="Invalid file name for export" ExportToGif = -1'--- 导出GIF文件Else oExcelChart.Export strFileName, "GIF": ExportToGif = 1End IfExit FunctionhError:ExportToGif = -1App.LogEvent Err.Description, vbLogEventTypeErrorErr.Raise Err.Number, Err.Source, Err.DescriptionEnd Function

函数首先通过检查图表中数据系列的数量判断是否确实已有绘制图表的数据。接下来，程序检查GIF文件的名字是否合法，然后使用Chart对象的Export方法将图表导出为指定的GIF文件。以前生成的GIF文件被自动改写。