Hi Expert's friends,
I have a codes VBScript and call a office 2003 object in html.However, this codes automatic chang X/Y lable value interval and display 12 column value only.
I want to display all (79 column) of value in chart even there are a auto x lable interval.
How can I do this?
Also How can I adjust interval of X and Y lable value?
Thanks for any help!
FairfaxVB
***********************source code
<%@ language=VBScript%><HTML>
<head><title>Example</title></head>
<input type="hidden" value="JavaScript1.5" name="VBScript">
<STRONG><CENTER> Day info</CENTER></STRONG>
<BODY>
<object id=ChartSpace1 classid=CLSID:0002E55D-0000-0000-C000-000000000046 style="width:100%;height:480"></object>
<input type="hidden" name="vbs" value="JavaScript1.5">
<script language=vbs>
Sub Window_OnLoad()
Dim oChart
Dim oSeries1, oSeries2,oSeries3
dim oConst
ChartSpace1.Clear
Set oConst = ChartSpace1.Constants
Set oChart = ChartSpace1.Charts.Add
Set oSeries1 = oChart.SeriesCollection.Add
With oSeries1
.Caption = "Calls"
.SetData oConst.chDimCategories, oConst.chDataLiteral, _
Array("03/14/2005","03/15/2005","03/16/2005","03/17/2005","03/18/2005",
"03/19/2005","03/20/2005","03/21/2005","03/22/2005","03/23/2005",
"03/24/2005","03/25/2005","03/26/2005","03/27/2005","03/28/2005",
"03/29/2005","03/30/2005","03/31/2005","04/01/2005","04/02/2005",
"04/04/2005","04/05/2005","04/06/2005","04/07/2005","04/08/2005",
"04/09/2005","04/10/2005","04/11/2005","04/12/2005","04/13/2005",
"04/14/2005","04/15/2005","04/16/2005","04/17/2005","04/18/2005",
"04/19/2005","04/20/2005","04/21/2005","04/22/2005","04/23/2005",
"04/24/2005","04/25/2005","04/26/2005","04/27/2005","04/28/2005",
"04/29/2005","04/30/2005","05/01/2005","05/02/2005","05/03/2005",
"05/04/2005","05/05/2005","05/06/2005","05/07/2005","05/08/2005",
"05/09/2005","05/10/2005","05/11/2005","05/12/2005","05/13/2005",
"05/14/2005","05/15/2005","05/16/2005","05/17/2005","05/18/2005",
"05/19/2005","05/20/2005","05/21/2005","05/22/2005","05/23/2005",
"05/24/2005","05/25/2005","05/26/2005","05/27/2005","05/28/2005",
"05/29/2005","05/30/2005","05/31/2005","06/01/2005")
.SetData oConst.chDimValues, oConst.chDataLiteral, _
Array(745000,871000,738000,917000,533000,185000,0,790000,883000,830000,
684000,508000,71000,0,882000,709000,930000,846000,571000,119000,726000,
861000,845000,802000,726000,107000,0,971000,768000,848000,831000,851000,
118000,0,879000,931000,726000,1009000,775000,228000,0,1112000,988000,
729000,879000,1081000,98000,0,821000,1099000,833000,771000,610000,145000,
0,809000,769000,722000,628000,897000,132000,0,937000,673000,798000,706000,
681000,204000,0,842000,642000,848000,740000,805000,124000,0,198000,805000,
665000)
.Type = oConst.chChartTypeColumnClustered
End With
oChart.Axes.Add oChart.Scalings(oConst.chDimValues), _
oConst.chAxisPositionRight, oConst.chValueAxis
oChart.Legend.Position = oConst.chLegendPositionBottom
oChart.HasTitle = True
oChart.Title.Caption = "Info Analyse"
End Sub
</script>
</BODY></HTML>
I have a codes VBScript and call a office 2003 object in html.However, this codes automatic chang X/Y lable value interval and display 12 column value only.
I want to display all (79 column) of value in chart even there are a auto x lable interval.
How can I do this?
Also How can I adjust interval of X and Y lable value?
Thanks for any help!
FairfaxVB
***********************source code
<%@ language=VBScript%><HTML>
<head><title>Example</title></head>
<input type="hidden" value="JavaScript1.5" name="VBScript">
<STRONG><CENTER> Day info</CENTER></STRONG>
<BODY>
<object id=ChartSpace1 classid=CLSID:0002E55D-0000-0000-C000-000000000046 style="width:100%;height:480"></object>
<input type="hidden" name="vbs" value="JavaScript1.5">
<script language=vbs>
Sub Window_OnLoad()
Dim oChart
Dim oSeries1, oSeries2,oSeries3
dim oConst
ChartSpace1.Clear
Set oConst = ChartSpace1.Constants
Set oChart = ChartSpace1.Charts.Add
Set oSeries1 = oChart.SeriesCollection.Add
With oSeries1
.Caption = "Calls"
.SetData oConst.chDimCategories, oConst.chDataLiteral, _
Array("03/14/2005","03/15/2005","03/16/2005","03/17/2005","03/18/2005",
"03/19/2005","03/20/2005","03/21/2005","03/22/2005","03/23/2005",
"03/24/2005","03/25/2005","03/26/2005","03/27/2005","03/28/2005",
"03/29/2005","03/30/2005","03/31/2005","04/01/2005","04/02/2005",
"04/04/2005","04/05/2005","04/06/2005","04/07/2005","04/08/2005",
"04/09/2005","04/10/2005","04/11/2005","04/12/2005","04/13/2005",
"04/14/2005","04/15/2005","04/16/2005","04/17/2005","04/18/2005",
"04/19/2005","04/20/2005","04/21/2005","04/22/2005","04/23/2005",
"04/24/2005","04/25/2005","04/26/2005","04/27/2005","04/28/2005",
"04/29/2005","04/30/2005","05/01/2005","05/02/2005","05/03/2005",
"05/04/2005","05/05/2005","05/06/2005","05/07/2005","05/08/2005",
"05/09/2005","05/10/2005","05/11/2005","05/12/2005","05/13/2005",
"05/14/2005","05/15/2005","05/16/2005","05/17/2005","05/18/2005",
"05/19/2005","05/20/2005","05/21/2005","05/22/2005","05/23/2005",
"05/24/2005","05/25/2005","05/26/2005","05/27/2005","05/28/2005",
"05/29/2005","05/30/2005","05/31/2005","06/01/2005")
.SetData oConst.chDimValues, oConst.chDataLiteral, _
Array(745000,871000,738000,917000,533000,185000,0,790000,883000,830000,
684000,508000,71000,0,882000,709000,930000,846000,571000,119000,726000,
861000,845000,802000,726000,107000,0,971000,768000,848000,831000,851000,
118000,0,879000,931000,726000,1009000,775000,228000,0,1112000,988000,
729000,879000,1081000,98000,0,821000,1099000,833000,771000,610000,145000,
0,809000,769000,722000,628000,897000,132000,0,937000,673000,798000,706000,
681000,204000,0,842000,642000,848000,740000,805000,124000,0,198000,805000,
665000)
.Type = oConst.chChartTypeColumnClustered
End With
oChart.Axes.Add oChart.Scalings(oConst.chDimValues), _
oConst.chAxisPositionRight, oConst.chValueAxis
oChart.Legend.Position = oConst.chLegendPositionBottom
oChart.HasTitle = True
oChart.Title.Caption = "Info Analyse"
End Sub
</script>
</BODY></HTML>
