Graficas de excel a word por asp

[saifo]

<%
Sub ShowChart(ByRef aValues, ByRef aLabels, ByRef strTitle, ByRef strXAxisLabel, ByRef strYAxisLabel)
' Some user changable graph defining constants
' Todas las unidades está en pixeles de pantalla
Const GRAPH_WIDTH = 430 ' El ancho del cuerpo del grafico
Const GRAPH_HEIGHT = 250 ' La altura del cuerpo del grafico
Const GRAPH_BORDER = 1 ' Tamaño de borde negro
Const GRAPH_SPACER = 2 ' Tamaño del espacio entre barras

' Debugging constant so I can eaasily switch on borders in case
' the tables get messed up. Should be left at zero unless you're
' trying to figure out which table cells doing what.
Const TABLE_BORDER = 0
'Const TABLE_BORDER = 10

' Declare our variables
Dim I
Dim iMaxValue
Dim iBarWidth
Dim iBarHeight

' Get the maximum value in the data set
iMaxValue = 0
For I = 0 To UBound(aValues)
If iMaxValue < aValues(I) Then iMaxValue = aValues(I)
Next 'I
'Response.Write iMaxValue ' Debugging line


' Calculate the width of the bars
' Take the overall width and divide by number of items and round down.
' I then reduce it by the size of the spacer so the end result
' should be GRAPH_WIDTH or less!
iBarWidth = (GRAPH_WIDTH \ (UBound(aValues) + 1)) - GRAPH_SPACER
'Response.Write iBarWidth ' Debugging line


' Start drawing the graph
%>


ESTO ES LO QUE ESTOY ACIENDO PERO ES PARA GRAFICAS ECHAS EN ASP.

LO QUE NECESITO ES ACERLAS EN UN EXCEL.
Y LUEGO SI SE PUEDE PASARLAS A UN WORD SIU NO QUE SE QUEDEN EN EL EXCEL. LO QUE ME AS DICHO YA LO ESTUVE MIRANDO PERO ....?¿?¿?¿?¿

GRACIAS POR LA AYUDA DE ANTEMANO