L
liliana
Could you please tell me if......???
I'am creating charts in ASP using Microsoft Office Web
Components, I need x-axis titles be rotated (vertical or
90 degrees)
set RS2 = Server.CreateObject("ADODB.Recordset")
RS2.CursorType = adOpenStatic
RS2.cursorlocation = adUseClient
RS2.Open sSQL,Conn
set oChart = Server.CreateObject("OWC.Chart")
Set c = oChart.Constants
set objChart = oChart.Charts.Add()
set oChart.DataSource = RS2
objChart.Type=c.chChartTypeLineMarkers
objChart.Legend.Font.Name="Tahoma"
objChart.Legend.Font.Size=7
objChart.SetData c.chDimSeriesNames,0,"Productos"
for each objSeries in objChart.SeriesCollection
objSeries.SetData c.chDimCategories,0,"Mes"
objSeries.SetData c.chDimValues, 0, "Precio"
next
for each axis in objChart.Axes
axis.HasTitle = True
if axis.Type = c.chCategoryAxis then
'axis.Orientation=90
'axis.DataLabelsCollection.Orientation = 90
'axis.Orientation = Upward
'axis.c.chAxisPositionCategory.CategoryLabels.Alig
nment.Rotation = 90
'axis.Orientation = c.chLabelOrientationDownward
'axis.Orientation = 90
'axis.orientation=c.chLabelOrientationUpward
the line them in green they mark error, please help me.
axis.Title.Caption = "Año/Mes"
set objFont=Axis.Title.Font
objFont.Name="Tahoma"
objFont.Size=10
objFont.Bold=True
else
axis.Title.Caption = "Precio"
set objFont=Axis.Title.Font
objFont.Name="Tahoma"
objFont.Size=10
objFont.Bold=True
end if
next
oChart.ExportPicture server.MapPath
("exportprices.gif"), "gif", 900, 500
response.Write "<img src='exportprices.gif' > "
%>
Thanks for any
help.
I'am creating charts in ASP using Microsoft Office Web
Components, I need x-axis titles be rotated (vertical or
90 degrees)
set RS2 = Server.CreateObject("ADODB.Recordset")
RS2.CursorType = adOpenStatic
RS2.cursorlocation = adUseClient
RS2.Open sSQL,Conn
set oChart = Server.CreateObject("OWC.Chart")
Set c = oChart.Constants
set objChart = oChart.Charts.Add()
set oChart.DataSource = RS2
objChart.Type=c.chChartTypeLineMarkers
objChart.Legend.Font.Name="Tahoma"
objChart.Legend.Font.Size=7
objChart.SetData c.chDimSeriesNames,0,"Productos"
for each objSeries in objChart.SeriesCollection
objSeries.SetData c.chDimCategories,0,"Mes"
objSeries.SetData c.chDimValues, 0, "Precio"
next
for each axis in objChart.Axes
axis.HasTitle = True
if axis.Type = c.chCategoryAxis then
'axis.Orientation=90
'axis.DataLabelsCollection.Orientation = 90
'axis.Orientation = Upward
'axis.c.chAxisPositionCategory.CategoryLabels.Alig
nment.Rotation = 90
'axis.Orientation = c.chLabelOrientationDownward
'axis.Orientation = 90
'axis.orientation=c.chLabelOrientationUpward
the line them in green they mark error, please help me.
axis.Title.Caption = "Año/Mes"
set objFont=Axis.Title.Font
objFont.Name="Tahoma"
objFont.Size=10
objFont.Bold=True
else
axis.Title.Caption = "Precio"
set objFont=Axis.Title.Font
objFont.Name="Tahoma"
objFont.Size=10
objFont.Bold=True
end if
next
oChart.ExportPicture server.MapPath
("exportprices.gif"), "gif", 900, 500
response.Write "<img src='exportprices.gif' > "
%>
Thanks for any
help.