owc生成图设置背景为渐变问题

[xy19830419]

谁能帮我把下边这个生成图的背景设成两种色渐变一下啊，谢谢各位大哥了。


<%
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
%>

[lovehongyun]

帮顶.

• 打赏
• 举报

回复 赞