利用Office Chart 制作柱图(两个柱子)
来源:互联网 发布:qq炫舞mac版官方下载 编辑:程序博客网 时间:2024/05/07 12:03
环境:VS.NET 2003 、Office 2003
语言:VBScript 、C#
步骤:
1.单击“工具箱-添加/移除项”,弹出“自定义工具箱”;
2.点击“COM组件”,选择“Microsoft Office Chart 11.0”然后确定,此时工具栏上出现“Microsoft Office Chart 11.0”的图标;
3..aspx的后台代码如下:
html代码
<html>
<head>
<title>OfficeChart3</title>
<meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" Content="C#">
<meta name=vs_defaultClientScript content="JavaScript">
<meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
</head>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server"></form>
<OBJECT id="ChartSpace1" style="Z-INDEX: 101; LEFT: 40px; WIDTH: 432px; POSITION: absolute; TOP: 40px; HEIGHT: 280px"
classid="clsid:0002E55D-0000-0000-C000-000000000046" VIEWASTEXT>
<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>'>
<PARAM NAME="ScreenUpdating" VALUE="-1">
<PARAM NAME="EnableEvents" VALUE="-1">
</OBJECT>
</FONT>
<script language="vbscript">
Dim categories, values1,values2
categories = "0"+chr(9)+"1"+chr(9)+"2"+chr(9)+"3"+chr(9)+"4"+chr(9)
values1 = "2"+chr(9)+"2"+chr(9)+"3"+chr(9)+"4"+chr(9)+"2"+chr(9)
values2 = "1"+chr(9)+"8"+chr(9)+"0"+chr(9)+"2"+chr(9)+"9"+chr(9)
ChartSpace1.Charts.Add
Set c = ChartSpace1.Constants
ChartSpace1.Charts(0).hastitle=true
ChartSpace1.Charts(0).Title.Font.Name = "仿宋_GB231280"
ChartSpace1.Charts(0).Title.Font.size=12
ChartSpace1.Charts(0).Title.caption="某某业务分析表"
ChartSpace1.Charts(0).HasLegend = True
ChartSpace1.Charts(0).type=c.chChartTypeColumnClustered
ChartSpace1.Charts(0).SetData c.chDimCategories, c.chDataLiteral,categories
'系列0
ChartSpace1.Charts(0).SeriesCollection(0).Caption="数据1" '系列0的图例
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values1
ChartSpace1.Charts(0).SeriesCollection(0).Border.Color="#000000"
ChartSpace1.Charts(0).SeriesCollection(0).Interior.Color="#ff0000"
'系列1
ChartSpace1.Charts(0).SeriesCollection.Add
ChartSpace1.Charts(0).SeriesCollection(1).Caption="数据2" '系列1的图例
ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimValues, c.chDataLiteral, values2
ChartSpace1.Charts(0).SeriesCollection(1).Border.Color="#0000ff"
ChartSpace1.Charts(0).SeriesCollection(1).Interior.Color="#00ff00"
ChartSpace1.Charts(0).axes(c.chAxisPositionLeft).hastitle=true
ChartSpace1.Charts(0).axes(c.chAxisPositionLeft).title.caption="数量"
ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).NumberFormat = "0.##"
ChartSpace1.Charts(0).axes(c.chAxisPositionBottom).hastitle=true
ChartSpace1.Charts(0).axes(c.chAxisPositionBottom).title.caption="时间"
</script>
</body>
</html>
<html>
<head>
<title>OfficeChart3</title>
<meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" Content="C#">
<meta name=vs_defaultClientScript content="JavaScript">
<meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
</head>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server"></form>
<OBJECT id="ChartSpace1" style="Z-INDEX: 101; LEFT: 40px; WIDTH: 432px; POSITION: absolute; TOP: 40px; HEIGHT: 280px"
classid="clsid:0002E55D-0000-0000-C000-000000000046" VIEWASTEXT>
<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>'>
<PARAM NAME="ScreenUpdating" VALUE="-1">
<PARAM NAME="EnableEvents" VALUE="-1">
</OBJECT>
</FONT>
<script language="vbscript">
Dim categories, values1,values2
categories = "0"+chr(9)+"1"+chr(9)+"2"+chr(9)+"3"+chr(9)+"4"+chr(9)
values1 = "2"+chr(9)+"2"+chr(9)+"3"+chr(9)+"4"+chr(9)+"2"+chr(9)
values2 = "1"+chr(9)+"8"+chr(9)+"0"+chr(9)+"2"+chr(9)+"9"+chr(9)
ChartSpace1.Charts.Add
Set c = ChartSpace1.Constants
ChartSpace1.Charts(0).hastitle=true
ChartSpace1.Charts(0).Title.Font.Name = "仿宋_GB231280"
ChartSpace1.Charts(0).Title.Font.size=12
ChartSpace1.Charts(0).Title.caption="某某业务分析表"
ChartSpace1.Charts(0).HasLegend = True
ChartSpace1.Charts(0).type=c.chChartTypeColumnClustered
ChartSpace1.Charts(0).SetData c.chDimCategories, c.chDataLiteral,categories
'系列0
ChartSpace1.Charts(0).SeriesCollection(0).Caption="数据1" '系列0的图例
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values1
ChartSpace1.Charts(0).SeriesCollection(0).Border.Color="#000000"
ChartSpace1.Charts(0).SeriesCollection(0).Interior.Color="#ff0000"
'系列1
ChartSpace1.Charts(0).SeriesCollection.Add
ChartSpace1.Charts(0).SeriesCollection(1).Caption="数据2" '系列1的图例
ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimValues, c.chDataLiteral, values2
ChartSpace1.Charts(0).SeriesCollection(1).Border.Color="#0000ff"
ChartSpace1.Charts(0).SeriesCollection(1).Interior.Color="#00ff00"
ChartSpace1.Charts(0).axes(c.chAxisPositionLeft).hastitle=true
ChartSpace1.Charts(0).axes(c.chAxisPositionLeft).title.caption="数量"
ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).NumberFormat = "0.##"
ChartSpace1.Charts(0).axes(c.chAxisPositionBottom).hastitle=true
ChartSpace1.Charts(0).axes(c.chAxisPositionBottom).title.caption="时间"
</script>
</body>
</html>
柱图:
- 利用Office Chart 制作柱图(两个柱子)
- 利用Office Chart 制作柱图(一个柱子)
- highchart 柱图设置 柱子宽度 柱子间距
- chart制作
- 利用chart函数实现折线图
- flex3柱图指定某条柱子颜色
- WinForm Chart控件使用记录(由于制作饼装,柱状,折线图)
- WinForm Chart控件使用记录(由于制作饼装,柱状,折线图)
- Chart.js报表制作
- Chart.js报表制作
- Chart.js报表制作
- c#利用Chart 画图
- 使用Dundas Chart控件制作一个模拟的逼真图
- 使用WinForm Chart控件 制作饼装,柱状,折线图
- 嵌入式 制作x86平台的内核步骤“一”-柱子
- 嵌入式 制作x86平台的内核步骤“二”-柱子
- iPhone 利用CG API画一个饼图(Pie chart)
- C#利用Chart类别建立不含格线的直条图
- 研究Atlas(一)也做个无刷新
- 偶也学学2.0
- 服务器端执行javascript脚本
- 插入操作 if返回值=1时插入成功,else 该值已经存在
- SQL Server 四舍五入
- 利用Office Chart 制作柱图(两个柱子)
- 微软
- .com组件客户端注册方法
- 利用Office Chart 制作柱图(一个柱子)
- 众多select
- 报表统计-内存与内存的关联
- SqlServer 除法运算遇到被零除错误
- .NET点滴
- 有趣的图标