6、ExportToGIF函数

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 = 1
  end if
  exit function
herror:
  exporttogif = -1
  app.logevent err.description, vblogeventtypeerror
  err.raise err.number, err.source, err.description
end function