
12/07/2004, 14:36
|
| | Fecha de Ingreso: enero-2003
Mensajes: 243
Antigüedad: 22 años, 3 meses Puntos: 0 | |
Si, claro...
Aqui esta el codigo...
Set pie = server.CreateObject("MSGraph.Chart")
Set ds = pie.Application.DataSheet
ds.Cells.Clear
pie.Width = 500
pie.Height = 500
ds.Cells(1, 2).Value = "TITI alain"
ds.Cells(2, 2).Value = "11,20"
ds.Cells(1, 3).Value = "vient gérard"
ds.Cells(2, 3).Value = "15"
ds.Cells(1, 4).Value = "TOTO FABRICE"
ds.Cells(2, 4).Value = "17"
ds.Cells(1, 5).Value = "EMILE CLAUDE"
ds.Cells(2, 5).Value = "19"
ds.Cells(1, 6).Value = "BERNARD BERNARD"
ds.Cells(2, 6).Value = "20"
ds.Cells(1, 7).Value = "TUTU ALAIN"
ds.Cells(2, 7).Value = "22"
pie.ChartType = 99
pie.HasLegend = true
pie.HasTitle = true
pie.ChartTitle.Text = "A test Chart"
pie.Legend.Font.Size = 50
pie.Legend.AutoScaleFont = false
pie.ApplyDataLabels
pie.SeriesCollection(1).DataLabels.AutoScaleFont = True
pie.SeriesCollection(1).DataLabels.Font.Size = 8
pie.ChartArea.Interior.ColorIndex = 2
pie.PlotArea.Width = 200
pie.PlotArea.Height = 200
tFile = Server.MapPath("pie.gif")
pie.Export tFile
%>
<img src="pie.gif">
Sabes como puedo cambiar el color ?
Y donde puedo obtener las propiedades completas del componente?
Gracias!
__________________ I'm Windows. |