
06/01/2008, 21:05
|
| | Fecha de Ingreso: abril-2004 Ubicación: Cdoro. Rivadavia
Mensajes: 83
Antigüedad: 21 años Puntos: 0 | |
error con mschart Hola a todos. Estoy empezando a usar mschart y me sale un error que no se a que se puede deber. Quizás puedan darme una mano.
Con este procedimiento recorro un listview y armo el grafico de acuerdo a los valores contenidos en dicho listview.
Private Sub Grafica()
Dim iIndiceFila As Integer
Dim iIndiceColumna
With chart.DataGrid
' Establecemos las Etiquetas de las Columnas
For iIndiceFila = 1 To lv.ListItems.Count
.RowLabel(iIndiceFila, 1) = lv.ListItems(iIndiceFila).text
Next
'Establecemos el tamaño del Chart
'Parametros: Total Etiquetas Cols, Total Etiquetas Series,
'Total Columnas, Total Series
.SetSize lv.ListItems.Count, 1, lv.ListItems.Count, 1
' Establecemos los valores de cada columna
' Parametros: Columna, Serie, Valor
For iIndiceFila = 1 To lv.ListItems.Count
.SetData iIndiceFila, 1, lv.ListItems(iIndiceFila).SubItems(1), 0
Next
End With
End Sub
El error que me da es: Error 1101 en tiempo de ejecución. Argumento de función incorrecto.
El error se produce al establecer las etiquetas de las columnas, mas especificamente al establecer la ultima etiqueta....
Alguna sugerencia?
Saludos!! |