关于OWC11中的 雷达图

因为最近单位要做一个雷达图，于是在尝试 用owc做，目前柱状图都可以做，在雷达图这边有些问题

1. 为什么 雷达图首尾连接的时候，会回到0,0 这个坐标， 不是topic1 和 topic14 直接连线
2. 如何设置雷达图的坐标，最小值和最大值


<center><object id="ChartSpace1" classid="CLSID:0002E55D-0000-0000-C000-000000000046" width="80%" height=400 ></object></center>
<script language="vbscript"> 
Sub Window_OnLoad() 
ChartSpace1.clear
categories = split("Topic1,Topic2,Topic3,Topic4,Topic5,Topic6,Topic7,Topic8,Topic9,Topic10,Topic11,Topic12,Topic13,Topic14",",") '数据项目名数组 
values = split("7.4,8.1,7.6,7.3,5.4,4.8,4.7,4.3,5.1,4.5,4.7,4.7,4.2,4.8, ",",") '数据项目值数组 
Set cht = ChartSpace1.Charts.Add '添加一个图标对象 
Set c = ChartSpace1.Constants '返回一个对象，此对象允许脚本用户使用已命名的常量。 
cht.Type = c.chChartTypeRadarLine '设置图表类型为折线图 
ChartSpace1.HasChartSpaceTitle = True '指定图表工作区中包含标题 
ChartSpace1.ChartSpaceTitle.Caption = "<%=ChartTitle%> 各项评价分析图" '设置图表工作区标题内容 
ChartSpace1.ChartSpaceTitle.Font.Bold = True '设置图表工作区标题内容是否粗体 
ChartSpace1.ChartSpaceTitle.Font.Color = "blue" '设置图表工作区标题的颜色 
ChartSpace1.ChartSpaceTitle.Font.Italic = False '设置图表工作区标题是否为斜体 
ChartSpace1.ChartSpaceTitle.Font.Name = "隶书" '设置图表工作区标题内容的字体 
ChartSpace1.ChartSpaceTitle.Font.Size = 18 '设置图表工作区标题内容的大小（单位：磅） 
ChartSpace1.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle '设置下划线属性 
cht.SetData c.chDimCategories, c.chDataLiteral, categories '横项（分类轴） 
cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values 
Set dl = cht.SeriesCollection(0).DataLabelsCollection.Add '添加图例的数据标记 
dl.HasValue = True 
dl.HasPercentage = False 
dl.Font.Size = 9 
dl.Font.Color = "red" 
dl.Position = c.chLegendPositionRight 
'设置纵向数值属性 
Set categoryAxis = cht.Axes(c.chAxisPositionBottom) 
categoryAxis.Font.Size = 9 
'设置分类组属性 
Set categoryAxis = cht.Axes(c.chAxisPositionLeft) 
categoryAxis.Font.Size = 9 


End Sub 
</script>