Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

how to change chart x interval value on the web by VAScript

Status
Not open for further replies.

jimmyweb

Programmer
Dec 9, 2004
37
US
Hi friends,

Could I change X lable valus display as 3 day interval.
such 6/31/2005,7/5/2005,7/10/2005,7/15/2005....
please see my source code

Nice weekend

Thank advance!

Jim

****************source codes
<%@ Language=VBScript %>
<HTML>
<head><title>calls chart example</title></head>
<STRONG><CENTER>Calls Per Day </CENTER></STRONG>

<BODY>
<object id=ChartSpace1 classid=CLSID:0002E500-0000-0000-C000-000000000046 style="width:100%;height:480"></object>
<object id=Spreadsheet1 classid=CLSID:0002E510-0000-0000-C000-000000000046 style="width:100%;height:480"></object>

<script language=vbs>
Sub Window_OnLoad()

class
Dim oSheet
Set oSheet = Spreadsheet1.ActiveSheet
oSheet.Cells.Clear
oSheet.Range("A2:A10").Value = Array("6/6/2005","6/7/2005","6/8/2005","6/9/2005","6/10/2005","6/11/2005","6/12/2005","6/13/2005","6/14/2005")
oSheet.Range("B1:B10").Value = Array("OBC", 0.3,0.07, 0.1,0.4,0.08,0.2,0.2,0.5,2.5)

Dim oChart
ChartSpace1.Clear
Set oChart = ChartSpace1.Charts.Add

' Set the Spreadsheet component as the data source for the chart
ChartSpace1.DataSource = Spreadsheet1

dim c
set c = ChartSpace1.Constants

'Add the data to the chart and set the series names
dim oSeries

for i=1 to 1
Set oSeries = oChart.SeriesCollection.Add
oSeries.SetData c.chDimValues, 0, oSheet.Range(oSheet.Cells(2,1), oSheet.Cells(10,1)).Address
oSeries.SetData c.chDimSeriesNames, 0, oSheet.Cells(1,1).Address
next

oChart.SetData c.chDimCategories, 0, "a2:a10"

oChart.Axes(c.chAxisPositionLeft).NumberFormat = "0"
oChart.Axes(c.chAxisPositionLeft).MajorUnit = 0.5

End Sub
</script>


</BODY>
</HTML>
 
>Could I change X lable valus display as 3 day interval.
Look into the minorunit setting.
[tt]oChart.Axes(c.chAxisPositionBottom).minorunit=3[/tt]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top