6、ExportToGIF函式 (轉)

6、ExportToGIF函式 (轉)[@more@] 

　　 該將圖表匯出為指定的GIF。

Public Function ExportToGif(ByVal strFileName As String) On Error GoTo hError '--- 檢查圖表中是否確實存在資料 If (oExcelChart.Seriellection.Count < = 0) Then Err.Raise Number:=1001 + vbError, _ 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., Err.Description End Function

　　 函式首先透過檢查圖表中資料系列的數量判斷是否確實已有繪製圖表的資料。接下來，檢查GIF檔案的名字是否合法，然後使用Chart的Export方法將圖表匯出為指定的GIF檔案。以前生成的GIF檔案被自動改寫。