Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here


office2003 object of ChartSpace1 and Spreadsheet1 with office 2002

office2003 object of ChartSpace1 and Spreadsheet1 with office 2002

office2003 object of ChartSpace1 and Spreadsheet1 with office 2002

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.
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,
******source codes from  this web
<%@ Language=VBScript %>
<head><title>calls chart example</title></head>

<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.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
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

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

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

End Sub


Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close