orande respondió:
Dim iAux As Integer 'Te defines el tipo de grafico MSChart1.chartType = VtChChartType2dBar 'Numero de columnas MSChart1.ColumnCount = 1 MSChart1.Column = 1 'Numero de filas Data1. Recordset. MoveLast MSChart1.RowCount = Data1.Recordset.RecordCount...