28,391
社区成员
发帖
与我相关
我的任务
分享ActiveX 之Microsoft office Chart
谁有Microsoft office web component 里的Chart使用的源代码？想要实现的功能是从数据库中取出数据，再根据要求用图形的方式表达出来。
...全文
请发表友善的回复…
发表回复
smallxiong 2000-06-08
- 打赏
- 举报
sorry,这个问题我也无能为力了。
smallant 2000-06-08
- 打赏
- 举报
Thanks！
还有一个问题，如果在客户端没有MSChart 这个ActiveX控件，我如何做到让客户端自动下载这个控件呢？我记得在哪张贴子里有提过，在控件定义的时候指明它的Code,你知道吗？如果知道，可将代码给我吗？谢谢！另外，我怎么知道MSChart的源代码在哪儿呢？
还有一个问题，如果在客户端没有MSChart 这个ActiveX控件，我如何做到让客户端自动下载这个控件呢？我记得在哪张贴子里有提过，在控件定义的时候指明它的Code,你知道吗？如果知道，可将代码给我吗？谢谢！另外，我怎么知道MSChart的源代码在哪儿呢？
smallxiong 2000-06-07
- 打赏
- 举报
上例说明
sub FillFigure(Caption,Categories,Values)
中参数
categories是坐标名称字符串，形式如下
如果有横坐标是统计的年月，如1999,2000...
那categories="1999"+chr(9)+"2000"+chr(9)+....
Values是每一个年统计的值，形式也和categories一样拼成一串
sub FillFigure(Caption,Categories,Values)
中参数
categories是坐标名称字符串，形式如下
如果有横坐标是统计的年月，如1999,2000...
那categories="1999"+chr(9)+"2000"+chr(9)+....
Values是每一个年统计的值，形式也和categories一样拼成一串
smallxiong 2000-06-07
- 打赏
- 举报
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<SCRIPT LANGUAGE=vbscript>
<!--
sub FillFigure(Caption,Categories,Values)
ChartSpace1.Clear
ChartSpace1.HasChartSpaceLegend=true
ChartSpace1.Charts.Add
ChartSpace1.Charts(0).SeriesCollection.Add
ChartSpace1.Charts(0).SeriesCollection(0).Caption = Caption
Set c = ChartSpace1.Constants
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories,c.chDataLiteral, Categories
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, Values
ChartSpace1.Charts(0).SeriesCollection(0).DataLabelsCollection.Add
ChartSpace1.Charts(0).Type =c.chChartTypeColumnClustered
ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).NumberFormat ="$#,##0"
end sub
//-->
</SCRIPT>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub figureType_onclick
End Sub
Sub figureType_onchange
if figureType.value<>"" then
Set c = ChartSpace1.Constants
ChartSpace1.Charts(0).Type =figureType.value
end if
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<center>
<!--<object id=Spreadsheet1 classid=CLSID:0002E510-0000-0000-C000-000000000046 style="width:49%;height:150"></object>-->
<br>
<OBJECT classid=CLSID:0002E500-0000-0000-C000-000000000046 id=ChartSpace1
style="HEIGHT: 80%; WIDTH: 70%"><PARAM NAME="XMLData" VALUE='<xml xmlns:x="urn:schemas-microsoft-com:office:excel">
<x:WebChart>
<x:OWCVersion>9.0.0.2710</x:OWCVersion>
<x:Width>8202</x:Width>
<x:Height>9208</x:Height>
</x:WebChart>
</xml>'><PARAM NAME="ScreenUpdating" VALUE="-1"></OBJECT>
<br><br>
<select id="figureType" name="figureType" style="HEIGHT: 22px; WIDTH: 155px">
<option value="" selected>--请选择--
<option value="18" >饼图
<option value="19" >分离饼图
<option value="6" >折线图
<option value="9" >点折线图
<option value="0" >柱形图
<option value="3" >条形图
<option value="13" >点曲线图
<option value="12" >曲线图
<option value="29" >面积图
<option value="32" >圆环图
<option value="33" >分离圆环图
<option value="37" >雷达图
<option value="38" >数据点雷达图
<option value="39" >散点图
</select>
</center>
</BODY>
</HTML>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<SCRIPT LANGUAGE=vbscript>
<!--
sub FillFigure(Caption,Categories,Values)
ChartSpace1.Clear
ChartSpace1.HasChartSpaceLegend=true
ChartSpace1.Charts.Add
ChartSpace1.Charts(0).SeriesCollection.Add
ChartSpace1.Charts(0).SeriesCollection(0).Caption = Caption
Set c = ChartSpace1.Constants
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories,c.chDataLiteral, Categories
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, Values
ChartSpace1.Charts(0).SeriesCollection(0).DataLabelsCollection.Add
ChartSpace1.Charts(0).Type =c.chChartTypeColumnClustered
ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).NumberFormat ="$#,##0"
end sub
//-->
</SCRIPT>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub figureType_onclick
End Sub
Sub figureType_onchange
if figureType.value<>"" then
Set c = ChartSpace1.Constants
ChartSpace1.Charts(0).Type =figureType.value
end if
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<center>
<!--<object id=Spreadsheet1 classid=CLSID:0002E510-0000-0000-C000-000000000046 style="width:49%;height:150"></object>-->
<br>
<OBJECT classid=CLSID:0002E500-0000-0000-C000-000000000046 id=ChartSpace1
style="HEIGHT: 80%; WIDTH: 70%"><PARAM NAME="XMLData" VALUE='<xml xmlns:x="urn:schemas-microsoft-com:office:excel">
<x:WebChart>
<x:OWCVersion>9.0.0.2710</x:OWCVersion>
<x:Width>8202</x:Width>
<x:Height>9208</x:Height>
</x:WebChart>
</xml>'><PARAM NAME="ScreenUpdating" VALUE="-1"></OBJECT>
<br><br>
<select id="figureType" name="figureType" style="HEIGHT: 22px; WIDTH: 155px">
<option value="" selected>--请选择--
<option value="18" >饼图
<option value="19" >分离饼图
<option value="6" >折线图
<option value="9" >点折线图
<option value="0" >柱形图
<option value="3" >条形图
<option value="13" >点曲线图
<option value="12" >曲线图
<option value="29" >面积图
<option value="32" >圆环图
<option value="33" >分离圆环图
<option value="37" >雷达图
<option value="38" >数据点雷达图
<option value="39" >散点图
</select>
</center>
</BODY>
</HTML>
smallant 2000-06-06
- 打赏
- 举报
hi?
