VB语言

本类阅读TOP10
·Visual Basic 安装程序的制作!!
·VB中使用EXCEL输出
·一个简单的MP3播放器
·VB程序实现WindowsXP效果的界面!!
·VB打造超酷个性化菜单（六）
·透明位图
·平铺与拉伸MDI窗口的背景图 ~!~
·对《VB程序实现WindowsXP效果的界面》一文的补遗
·从Windows资源管理器中拖动文件
·VB打造超酷个性化菜单（一）

→ 分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
6、ExportToGIF函数

作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站
 

　　 该函数将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 = 1
  End If
  Exit Function
hError:
  ExportToGif = -1
  App.LogEvent Err.Description, vbLogEventTypeError
  Err.Raise Err.Number, Err.Source, Err.Description
End Function

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




相关文章：

相关软件：