Como rellenar una hoja Excel, directamente de los 'datapoints' de un Chart
Esta seria la idea:
Imports Microsoft.Office.Interop
' Definir Aplicacion, Hoja y Rango
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oRg As Excel.Range
' Iniciar excel y obtener objeto "aplicacion"
oXL = New Excel.Application
' Ajustar propiedades a tu gusto
oXL.Visible = True
oXL.DisplayAlerts = False
' Obtener una nueva hoja
oWB = oXL.Workbooks.Add
' Trabajar con la hoja 1
Dim ws As Excel.Worksheet = DirectCast(oWB.Worksheets(1), Excel.Worksheet)
ws.Cells(1, 1) = "Titulo 1"
Dim Col As Integer = 2
Dim Row As Integer
' Imaginando un LineChar con valores numericos... distribuir series en columnas
For Each s As Charting.Series In LineChar2D1.chart1.Series
ws.Cells(1, Col) = s.Name
Row = 1
For Each p As Charting.DataPoint In LineChar2D1.chart1.Series(s.Name).Points
'Mostrar valores en columnas por series
ws.Cells(Row, Col) = p.YValues(0).ToString("N2")
Row += 1
Next
Col += 1
Next
' Ajustar aspecto final (Seleccionando rangos)
oRg = CType(ws.Columns("A", Type.Missing), Excel.Range)
oRg.AutoFit()
No olvideis que en chart tambien disponemos de la utilidad 'Points.DataBindXY' para procesarlos en bloque ;-)
Espero os sea util,
PepLluis,
PD. No olvideis importar el espacio de nombres de 'Office.Interop'