16 Nov 05 7:20
Hi Friends,
I have a codes from this web.
It works in office 2000 professional. But it does not work in office2003 and got an error message " borrower does not support ActiveX". After checking, I could not find these 2 object class in office 2003.
CLSID:0002E500-0000-0000-C000-000000000046
CLSID:0002E510-0000-0000-C000-000000000046
How to fix this issue? Does any friend know which new id or object name of ChartSpace1 and Spreadsheet1 in office 2003. Nornally speaking, office should be cover office 2000 in any way?
Any idea?
Thanks for help,
ChangNU
******source codes from this web
<%@ 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>
