bueno yo encontre este codigo
Dim apexcel As Variant
Set apexcel = CreateObject("excel.application")
' hace que excel se vea
apexcel.Visible = True
'agrega un nuevo libro
apexcel.workbooks.Add
'poner titulos
apexcel.cells(1, 1).formula = "TITULO DE LA APLICACION"
apexcel.cells(1, 1).Font.Size = 18
apexcel.cells(2, 2).formula = "debe"
apexcel.cells(2, 3).formula = "haber"
apexcel.cells(2, 4).formula = "saldo"
apexcel.cells(3, 2).formula = 200
apexcel.cells(3, 3).formula = 100
' aplica formula<br>
apexcel.cells(3, 4).formula = "=b3-c3"
' hace una seleccion de celdas y pone bordes de color
apexcel.range("b3:d3").borders.Color = RGB(255, 0, 0)
Set apexcel = Nothing
Con este codigo ya puede mandar datos a excel pero como doy la instruccion para generar el grafico.
Espero y me puedan ayudar, GRACIAS