missed data (lost data) for each interval at chart by VBScript control

fairfaxVB · Nov 23, 2005

Hi tsuji,

I means that chart display 13th,20th,27th,...
there are a 6 day gap batween 3/13/05-3/20/05 that does not display on the chart. I need to display every day value in chart.
I think there are a group function to control these lost data.
any solution?

Currently i am using cspace id as 0002E556-0000-0000-C000-000000000046 to handle my issue.
I am new person. I think MS productions are terrible tools. there are no common function/code to control properity of chart in one language.
each class of chart has different way to control properity. also high version chart class does not cover chart function/syntax in low version.

Happy Holiday
FairfaxVB

tsuji (TechnicalUser) 23 Nov 05 4:28
>This codes automatic cut off X lable value with 7 day interval and display 12 column value ...

What do you mean? On the chart, only 7 days or 14 days? Your 7th day data is 0, is it that what should be shown in the chart?

tsuji · Nov 24, 2005

fairfaxVB, can you post followup on the same thread. It is terribly confusing. Do you not know how to reply to the same thread? or maybe due to wide-post that you cannot fine the replay textarea? (horizontal-scroll until you find the box.)

As to your followup, I still don't get the picture of what you want to say. Maybe some other members with office2002/3 can answer you. I have answered all your questions as far as I can see. If there are others within your message, I might well do not know the answer.

fairfaxVB · Nov 24, 2005

Tsuji,
Thanks for your comment.

fairfaxVB · Nov 27, 2005

Hi Tsuji,
Thanks for your help.
How can I add a X and Y lable name for codes that I copy from this forum?
for example. X lable as schdule and Y as cost .
again, Thanks for any help for this issue!

FairfaxVb
****************** original 2000 chart codes

<%@ Language=VBScript %>
<HTML>
<head><title>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()

Dim oSheet
Set oSheet = Spreadsheet1.ActiveSheet
oSheet.Cells.Clear
oSheet.Range("A2:A10").Value = Array("06/06/2005","06/07/2005","06/08/2005","06/09/2005","06/10/2005","06/11/2005","06/12/2005","06/13/2005","06/14/2005")
oSheet.Range("B1:B10").Value = Array("OBC", 20,37, 200,40,18,57,120,167,145)

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

ChartSpace1.DataSource = Spreadsheet1

dim c
set c = ChartSpace1.Constants
dim oSeries

for i=1 to 1
Set oSeries = oChart.SeriesCollection.Add
oSeries.SetData c.chDimValues, 0, oSheet.Range(oSheet.Cells(2,2), oSheet.Cells(10,2)).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.0"
oChart.Axes(c.chAxisPositionLeft).MajorUnit = 50

End Sub
</script>

</BODY>
</HTML>

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!

missed data (lost data) for each interval at chart by VBScript control

fairfaxVB

Programmer

tsuji

Technical User

fairfaxVB

Programmer

fairfaxVB

Programmer

Similar threads

Part and Inventory Search

Sponsor