Problema al Graficar con web component
Publicado por meidi (1 intervención) el 25/10/2006 16:59:24
tengo problema con una grafica que realizaron con este componente, la grafica esta en la primera fila de una tabla, en la segunda fila debo colocar un boton regresar, pero la grafica a la vista se me monta encima de la tabla y el boton regresar jamas logro verlo ni el borde de la tabla, no se si se deba a alguna propiedad q tiene el codigo, o q deba hacer para lograr ver el boton regresar, el codigo es el siguiente
<%
Sub Generar_Grafico( Tipo, Titulo, Serie, yValues, xValues, bValue, bPerc )
if bValue = "" then
bValue = False
end if
if bPerc = "" then
bPerc = False
end if
Set oChart = CreateObject("OWC10.ChartSpace")
Set c = oChart.Constants
oChart.Charts.Add
oChart.Charts(0).HasLegend = True
oChart.Charts(0).Legend.Position = c.chLegendPositionBottom
oChart.Charts(0).HasTitle = True
oChart.Charts(0).Type = Tipo
AxValues = Split(xValues,";")
For i=0 To Ubound(AxValues)
AxValues(i) = Split(AxValues(i),",")
Next
AyValues = Split(yValues,",")
ASerie = Split(Serie,",")
For i=0 To Ubound(AxValues)
With oChart.Charts(0).SeriesCollection.Add
.Caption = ASerie(i)
.SetData c.chDimCategories, c.chDataLiteral, AyValues
.SetData c.chDimValues, c.chDataLiteral, AxValues(i)
Set oLabels = .DataLabelsCollection.Add
oLabels.HasValue = bValue
oLabels.HasPercentage = bPerc
End With
Next
oChart.Charts(0).Title.Caption = Titulo
With oChart.Charts(0).Title
.Font.Size = 9
.Font.Name = "Verdana"
.Font.Color = "#0033CC"
.Font.Bold = True
End With
Response.Expires = 0
Response.Buffer = true
Response.Clear
Response.ContentType = "image/gif"
Response.BinaryWrite oChart.GetPicture("gif",800, 450)
end Sub
%>
Agradezco la ayuda o colaboracion q me pouedan prestar
<%
Sub Generar_Grafico( Tipo, Titulo, Serie, yValues, xValues, bValue, bPerc )
if bValue = "" then
bValue = False
end if
if bPerc = "" then
bPerc = False
end if
Set oChart = CreateObject("OWC10.ChartSpace")
Set c = oChart.Constants
oChart.Charts.Add
oChart.Charts(0).HasLegend = True
oChart.Charts(0).Legend.Position = c.chLegendPositionBottom
oChart.Charts(0).HasTitle = True
oChart.Charts(0).Type = Tipo
AxValues = Split(xValues,";")
For i=0 To Ubound(AxValues)
AxValues(i) = Split(AxValues(i),",")
Next
AyValues = Split(yValues,",")
ASerie = Split(Serie,",")
For i=0 To Ubound(AxValues)
With oChart.Charts(0).SeriesCollection.Add
.Caption = ASerie(i)
.SetData c.chDimCategories, c.chDataLiteral, AyValues
.SetData c.chDimValues, c.chDataLiteral, AxValues(i)
Set oLabels = .DataLabelsCollection.Add
oLabels.HasValue = bValue
oLabels.HasPercentage = bPerc
End With
Next
oChart.Charts(0).Title.Caption = Titulo
With oChart.Charts(0).Title
.Font.Size = 9
.Font.Name = "Verdana"
.Font.Color = "#0033CC"
.Font.Bold = True
End With
Response.Expires = 0
Response.Buffer = true
Response.Clear
Response.ContentType = "image/gif"
Response.BinaryWrite oChart.GetPicture("gif",800, 450)
end Sub
%>
Agradezco la ayuda o colaboracion q me pouedan prestar
Valora esta pregunta


0