owc生成图设置背景为渐变问题
谁能帮我把下边这个生成图的背景设成两种色渐变一下啊,谢谢各位大哥了。
<%
Class user_map
Public Sub Class_Initialize()
End Sub
public Sub ose(arrp,mon,value)
set chart = server.CreateObject("OWC11.Chartspace") '//office2003
chart.clear
chart.border.color="#FF0000"
'chart.PlotArea.Interior.SetTwoColorGradient Microsoft.Office.Interop.OWC.ChartGradientStyleEnum.chGradientDiagonalDown,Microsoft.Office.Interop.OWC.ChartGradientVariantEnum.chGradientVariantEnd,"LightSkyBlue", "white"
set ochart=chart.charts.add '添加一个chat类
set oconst=chart.constants '调用chat的命名常数
''''''''''''''''''''''''''''''
set oseries=ochart.seriescollection.add '生成一个series序列
with oseries
.caption=FlowYear&"年Q"&FlowQuarter&"机型移动图"
.setdata oconst.chdimcategories,oconst.chdataliteral,mon '赋值横坐标值
.setdata oconst.chdimvalues,oconst.chdataliteral,arrp '赋纵坐标值
.type=value '控制图的类型
end with
''''''''''''''''''''''''''''''
with ochart
.hastitle=true '使图标有标题
.title.caption=FlowYear&"年Q"&FlowQuarter&"机型s移动图"
.title.font.size=12
.title.font.bold=true
.title.font.color = rgb(0,0,155)
.WidthRatio = 50
''''if charttype="5" then
.haslegend=true '使图表有图例
.legend.position=oconst.chlegendpositionright '设定标注的图表位置(bottom)
.legend.font.size = 9
''''end if
end with
' sFname=server.mappath("../image/" & value & "report_SaleTrend1.gif")
' vFname="../image/" & value & "report_SaleTrend1.gif" '生成图表的iis虚拟路径名
sFname=server.mappath("image/" & value & "report_SaleTrend1.gif")
vFname="image/" & value & "report_SaleTrend1.gif"
width = 450
height = 300
chart.exportPicture sFname,"gif",width ,height '将图表到处导服务器的物理路径中
response.write " <img align='center' border='0' src='"&vFname&"'/> "
End Sub
Private Sub class_terminate()
set chart=nothing
set ochart=nothing
set oconst=nothing
set oseries=nothing
End Sub
End Class
arrp=Array(11,12,13,14,2)
mon=Array(1,1,3,4,5)
arrp2=Array(32,12,43,21,7)
value=7
Set xy=new user_map
xy.ose arrp,mon,value
%>