生成的OWC图表，在很多客户端浏览器不支持。有没有办法将OWC图表输出GIF呢，谢谢

[yaoyouyou]

<OBJECT id="msodsc" border="0" classid="CLSID:0002E530-0000-0000-C000-000000000046" viewastext></OBJECT><OBJECT id="ChartSpace" title="Traffic Chart" width="100%" border="0" classid="clsid:0002E500-0000-0000-C000-000000000046" codebase="/Office/MSOWC.DLL" viewastext></object><SCRIPT language="vbscript">
<!--
Sub Window_OnLoad()
Dim oChart, oSeries, oLabels
Dim c
Dim nChartType
nChartType = 0
Set c = ChartSpace.Constants
'清除上次图表缓存
ChartSpace.Clear
'创建图表实例
Set oChart = ChartSpace.Charts.Add()
'设置图表标题
oChart.HasTitle = True
oChart.Title.Caption = ""
'设置图表图例
oChart.HasLegend = True
'设置图表图例位置
oChart.Legend.Position = c.chLegendPositionBottom
'设置图表类型(线型、饼图等...)
oChart.Type = CLng(nChartType)
' 添加系列到 chart 图表
With oChart.SeriesCollection.Add
' 设置标题 (图例文字)
.Caption = "报表 No.Of Messages"
'设置类别 (X 坐标)
.SetData c.chDimCategories, c.chDataLiteral, Array("9-21 ","9-22 ","9-23 ","9-24 ","9-25 ","9-26 ","9-27 ","9-28 ","9-29 ","9-30 ","10-1 ","10-2 ","10-3 ","10-4 ","10-5 ","10-6 ","10-7 ","10-8 ","10-9 ","10-10","10-11","10-12","10-13","10-14","10-15","10-16","10-17","10-18","10-19","10-20","10-21","10-22","10-23","10-24","10-25","10-26","10-27","10-28","10-29","10-30","10-31","11-1 ","11-2 ","11-3 ","11-4 ","11-5 ","11-6 ","11-7 ","11-8 ","11-9 ","11-10","11-11","11-12","11-13","11-14","11-15")
'设置图表数据(Y 坐标)
.SetData c.chDimValues, c.chDataLiteral, Array(379,743,693,837,2700,522,584,1675,769,780,1790,853,577,460,491,603,638,448,524,502,516,552,509,457,492,303,458,385,297,339,314,310,309,217,260,344,326,414,518,377,326,603,463,548,404,525,562,567,361,339,488,254,241,214,1083,68)
End With
End Sub
//-->
</SCRIPT>

不知道什么原因自己写代码的机器上能看到图，而同事的机器就看不到。
能不能把图片生成GIF。
请教。

[ybjs]

www.wave12.com 有图表组件 功能强大 调用简单

[ququd]

AxChart.GetPicture("gif", 500, 300);

[daichenghua]

oChart .ExportPicture(ImageUrl, "GIF", 750, 400);