利用Office Chart 制作柱图(两个柱子)

环境:VS.NET 2003 、Office 2003
语言:VBScript 、C#
步骤
        1.单击“工具箱-添加/移除项”,弹出“自定义工具箱”;
         2.点击“COM组件”,选择“Microsoft Office Chart 11.0”然后确定,此时工具栏上出现“Microsoft Office Chart 11.0”的图标;
          3..aspx的后台代码如下:
          

ContractedBlock.gif ExpandedBlockStart.gif html代码
None.gif<html>
None.gif  
<head>
None.gif    
<title>OfficeChart3</title>
None.gif    
<meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1">
None.gif    
<meta name="CODE_LANGUAGE" Content="C#">
None.gif    
<meta name=vs_defaultClientScript content="JavaScript">
None.gif    
<meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
None.gif  
</head>
None.gif  
<body MS_POSITIONING="GridLayout">
None.gif      
<form id="Form1" method="post" runat="server"></form>
None.gif            
<OBJECT id="ChartSpace1" style="Z-INDEX: 101; LEFT: 40px; WIDTH: 432px; POSITION: absolute; TOP: 40px; HEIGHT: 280px"
None.gif                classid
="clsid:0002E55D-0000-0000-C000-000000000046" VIEWASTEXT>
None.gif                
<PARAM NAME="XMLData" VALUE='<xml xmlns:x="urn:schemas-microsoft-com:office:excel">  <x:ChartSpace>   <x:OWCVersion>11.0.0.5531         </x:OWCVersion>   <x:Width>11430</x:Width>   <x:Height>7408</x:Height>   <x:Palette>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#000000</x:Entry>    <x:Entry>#8080FF</x:Entry>    <x:Entry>#802060</x:Entry>    <x:Entry>#FFFFA0</x:Entry>    <x:Entry>#A0E0E0</x:Entry>    <x:Entry>#600080</x:Entry>    <x:Entry>#FF8080</x:Entry>    <x:Entry>#008080</x:Entry>    <x:Entry>#C0C0FF</x:Entry>    <x:Entry>#000080</x:Entry>    <x:Entry>#FF00FF</x:Entry>    <x:Entry>#80FFFF</x:Entry>    <x:Entry>#0080FF</x:Entry>    <x:Entry>#FF8080</x:Entry>    <x:Entry>#C0FF80</x:Entry>    <x:Entry>#FFC0FF</x:Entry>    <x:Entry>#FF80FF</x:Entry>   </x:Palette>   <x:DefaultFont>宋体</x:DefaultFont>  </x:ChartSpace> </xml>'>
None.gif                
<PARAM NAME="ScreenUpdating" VALUE="-1">
None.gif                
<PARAM NAME="EnableEvents" VALUE="-1">
None.gif            
</OBJECT>
None.gif        
None.gif        
</FONT>
None.gif        
<script language="vbscript"> 
None.gif            Dim  categories, values1,values2
None.gif            categories 
= "0"+chr(9)+"1"+chr(9)+"2"+chr(9)+"3"+chr(9)+"4"+chr(9)
None.gif            values1 
= "2"+chr(9)+"2"+chr(9)+"3"+chr(9)+"4"+chr(9)+"2"+chr(9)
None.gif            values2 
= "1"+chr(9)+"8"+chr(9)+"0"+chr(9)+"2"+chr(9)+"9"+chr(9)
None.gif            ChartSpace1.Charts.Add
None.gif            Set c 
= ChartSpace1.Constants  
None.gif            ChartSpace1.Charts(
0).hastitle=true
None.gif            ChartSpace1.Charts(
0).Title.Font.Name = "仿宋_GB231280" 
None.gif            ChartSpace1.Charts(
0).Title.Font.size=12
None.gif            ChartSpace1.Charts(
0).Title.caption="某某业务分析表" 
None.gif            ChartSpace1.Charts(
0).HasLegend = True
None.gif            
None.gif            ChartSpace1.Charts(
0).type=c.chChartTypeColumnClustered 
None.gif            ChartSpace1.Charts(
0).SetData c.chDimCategories, c.chDataLiteral,categories 
None.gif            
'系列0 
None.gif
            ChartSpace1.Charts(0).SeriesCollection(0).Caption="数据1" '系列0的图例 
None.gif
            ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values1 
None.gif            ChartSpace1.Charts(
0).SeriesCollection(0).Border.Color="#000000"
None.gif            ChartSpace1.Charts(
0).SeriesCollection(0).Interior.Color="#ff0000"
None.gif            
'系列1
None.gif
            ChartSpace1.Charts(0).SeriesCollection.Add 
None.gif            ChartSpace1.Charts(
0).SeriesCollection(1).Caption="数据2" '系列1的图例 
None.gif
            ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimValues, c.chDataLiteral, values2 
None.gif            ChartSpace1.Charts(
0).SeriesCollection(1).Border.Color="#0000ff"
None.gif            ChartSpace1.Charts(
0).SeriesCollection(1).Interior.Color="#00ff00"
None.gif             
None.gif            ChartSpace1.Charts(
0).axes(c.chAxisPositionLeft).hastitle=true  
None.gif            ChartSpace1.Charts(
0).axes(c.chAxisPositionLeft).title.caption="数量" 
None.gif            ChartSpace1.Charts(
0).Axes(c.chAxisPositionLeft).NumberFormat = "0.##" 
None.gif            ChartSpace1.Charts(
0).axes(c.chAxisPositionBottom).hastitle=true 
None.gif            ChartSpace1.Charts(
0).axes(c.chAxisPositionBottom).title.caption="时间" 
None.gif        
</script>
None.gif  
</body>
None.gif
</html>

柱图:

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值