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!

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

added Y/X lable name for chart by VBScript

Status
Not open for further replies.
fairfaxVB

fairfaxVB

Programmer
Nov 3, 2005
46
US
Hi Tsuji,
Could I add a Y / X lable name for chart by VBScript.
It is not a Legend or title? Your answer is very good for me.
my problem is some person have office 2000. other person 2003.
Also I am still checking 2003 chart issue and let your knoe later.
the system have 2003 chart object after checking.
Again thanks for your help,
FairfaxVB
 
Sort by date Sort by votes
Hi Tsuji and friends,

I got a solution for office 2003 chart.
I can add X and Y lable name and works well in office 2003 environment.
codes as
Set axCategoryAxis = ChartSpace1.Charts(0).Axes(0)
Set axValueAxis = ChartSpace1.Charts(0).Axes(1)
axCategoryAxis.HasTitle = True
axCategoryAxis.Title.Caption = "date"
axValueAxis.HasTitle = True
axValueAxis.Title.Caption = "calls "

But this code does not in this codes that i copy from this web site.
How can I add lable name for X , Y in office 2000 environment.
Thanks
Fairfax VB
******************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:0002E55D-0000-0000-C000-000000000046 style="width:100%;height:480"></object>
<object id=Spreadsheet1 classid=CLSID:0002E559-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>
 
Upvote 0 Downvote
Hi Tsuji and friends,

I got a solution for office 2003 chart.
I can add X and Y lable name and works well in office 2003 environment.
codes as
Set axCategoryAxis = ChartSpace1.Charts(0).Axes(0)
Set axValueAxis = ChartSpace1.Charts(0).Axes(1)
axCategoryAxis.HasTitle = True
axCategoryAxis.Title.Caption = "date"
axValueAxis.HasTitle = True
axValueAxis.Title.Caption = "calls "

But this code does not in this codes that i copy from this web site.
How can I add lable name for X , Y in office 2000 environment.
Thanks
Fairfax VB
******************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>
 
Upvote 0 Downvote
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!
I already fixed 2003 lable name as
I can add X and Y lable name and works well in office 2003 environment.
codes as
Set axCategoryAxis = ChartSpace1.Charts(0).Axes(0)
Set axValueAxis = ChartSpace1.Charts(0).Axes(1)
axCategoryAxis.HasTitle = True
axCategoryAxis.Title.Caption = "schdule"
axValueAxis.HasTitle = True
axValueAxis.Title.Caption = "cost"

Thanks for any help!!
FairfaxVb
****************** original 2000 chart codes with VBScript

<%@ 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>
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

K
  • Locked
  • Question
VBSCRIPT dont work windows 11 23h2 ???
Replies
2
Views
1K
SoftwareRT
SoftwareRT
Alexvb6
  • Locked
  • Question
Deprecation of VBScript + Classic ASP: How to Ask Microsoft to cancel their planned craziness
Replies
0
Views
663
Alexvb6
Alexvb6
bdwilcox
  • Locked
  • Question
Trying to adapt VBScript to search if machine is in an AD group 6
Replies
8
Views
1K
SoftwareRT
SoftwareRT
paullem
  • Locked
  • Question
vbscript to read properties of JPEG file
Replies
4
Views
768
paullem
paullem
bdwilcox
  • Locked
  • Question
HTA fails with Syntax Error when working VBScript inserted
Replies
2
Views
663
bdwilcox
bdwilcox

Part and Inventory Search

Sponsor

Back
Top