La Web del Programador: Comunidad de Programadores
 
    Pregunta:  2445 - ASIGNAR LOS DATOS DE UN GRID A UN GRÁFICO MSCHART
Autor:  fredi Bolaños
Necesito saber como le asigno los valores que correspondan a filas y columnas para crear un gráfico con mschart, el caso es que cuento con una tabla de valores en un grid y deseo pasar estos valores a forma gráfica, si tienen algún ejemplo de como se le asigna los valores y sus leyendas se los agradeceré de gran manera.

  Respuesta:  Fredi Bolaños
Pues bien ya resolví el problema y de la siguiente manera:
Private Sub Form_Load()
With MSChart1
.chartType = VtChChartType2dBar
.ColumnCount = 10
.RowCount = 1

.Column = 1
.Data = frmControl.msgVenta.TextMatrix(1, 3)
.ColumnLabel = frmControl.msgVenta.TextMatrix(1, 1)

.Column = 2
.Data = frmControl.msgVenta.TextMatrix(2, 3)
.ColumnLabel = frmControl.msgVenta.TextMatrix(2, 1)

.Column = 3
.Data = frmControl.msgVenta.TextMatrix(3, 3)
.ColumnLabel = frmControl.msgVenta.TextMatrix(3, 1)
.Column = 4

.Data = frmControl.msgVenta.TextMatrix(4, 3)
.ColumnLabel = frmControl.msgVenta.TextMatrix(4, 1)
.Column = 5
.Data = frmControl.msgVenta.TextMatrix(5, 3)
.ColumnLabel = frmControl.msgVenta.TextMatrix(5, 1)
.Column = 6
.Data = frmControl.msgVenta.TextMatrix(6, 3)
.ColumnLabel = frmControl.msgVenta.TextMatrix(6, 1)
.Column = 7
.Data = frmControl.msgVenta.TextMatrix(7, 3)
.ColumnLabel = frmControl.msgVenta.TextMatrix(7, 1)
.Column = 8
.Data = frmControl.msgVenta.TextMatrix(8, 3)
.ColumnLabel = frmControl.msgVenta.TextMatrix(8, 1)
.Column = 9
.Data = frmControl.msgVenta.TextMatrix(9, 3)
.ColumnLabel = frmControl.msgVenta.TextMatrix(9, 1)
.Column = 10
.Data = frmControl.msgVenta.TextMatrix(10, 3)
.ColumnLabel = frmControl.msgVenta.TextMatrix(10, 1)
Ð/LM/W3SVC/157/Root