Club Builder

[Kosky]

Hola a todos,

mi problema es el siguiente, quiero pasar un grafico (chart) a un documento word, esto es possible? tengo que utilizar la metodologia que utiliza leo para sustituir texto en word con automatizacion? de ser asi que funcion me inserta un chart?
una possible solucion es exportar el grafico en bmp y luego insertar-lo en un documento word, pero... de esta manera pierdo automatizacion de mi aplicacion.
Espero haver-me explicado.

Gracias

[Kosky]

Hola a todos,

he estado buscando informacion y he encontrado un codigo que me pasa los datos a Excel el qual genera un grafico, luego lo copia al clipboard, luego abre el Word y lo copia, esto es una posible solucion pero......

es possible copiar mi chart creado en la aplicacion al clipboard y luego pegarlo al Word, sin tener que hacer el paso de datos a Excel?

Espero alguna ayudita por favor, tengo q entregar esta aplicacion la semana que viene y...... me estoy quedando colapsado.

Gracias

[Kosky]

Este es el codigo que he encontrado, el qual funciona correctamente pero como os he explicado no me soluciona mucho

XL=CreateOleObject("Excel.Application.8");
XL.OlePropertySet("Visible",true);
v0=XL.OlePropertyGet("Workbooks");
v0.OleProcedure("Add");
v1=v0.OlePropertyGet("Item",1);
v0=v1.OlePropertyGet("Worksheets") ;
v22=v1.OlePropertyGet("Charts") ;
v22.OleProcedure("Add");
v0.OlePropertyGet("Item",1).OlePropertySet("Name","The yellow book-keeping ");
v0.OlePropertyGet("Item",2).OlePropertySet("Name","The red book-keeping ");
for (int j=1;j<3;j++)
{
v1=v0.OlePropertyGet("Item",j);
for (int i=1;i<11;i++)
{
v1.OlePropertyGet("Cells").OlePropertyGet("Item",i,1).OlePropertySet("Value",i);
v1.OlePropertyGet("Cells").OlePropertyGet("Item",i,2).OlePropertySet("Value",i*5);
v2=v1.OlePropertyGet("Cells").OlePropertyGet("Item",i,2);
v2.OlePropertyGet("Font").OlePropertySet("Color",clBlue);
v2.OlePropertyGet("Font").OlePropertySet("Bold",true);
v2.OlePropertyGet("Interior").OlePropertySet("ColorIndex",9-3*j);
}
v1.OlePropertyGet("Cells").OlePropertyGet("Item",11,1).OlePropertySet("Value","=SUM(A1:A10)");
v1.OlePropertyGet("Cells").OlePropertyGet("Item",11,2).OlePropertySet("Value","=SUM(B1:B10)");
}
vrange=v0.OlePropertyGet("Item",1).OlePropertyGet("Range","A1:A10");
v1=v22.OlePropertyGet("Item",1);
v2=v1.OlePropertyGet("SeriesCollection");
v2.OleProcedure("Add",vrange);
vrange=v0.OlePropertyGet("Item",1).OlePropertyGet("Range","B1:B10");
v2.OleProcedure("Add",vrange);
v1.OleProcedure("Select");
XL.OlePropertyGet("Selection").OleProcedure("Copy");
WD=CreateOleObject("Word.Application.8");
WD.OlePropertySet("Visible",true);
WD.OlePropertyGet("Documents").OleProcedure("Add");
a=WD.OlePropertyGet("Documents");
b=a.OleFunction("Item",1);
for (int i=1;i<5;i++)
{b.OlePropertyGet("Paragraphs").OleProcedure("Add");};
c=b.OleFunction("Range",1,2);
c.OleProcedure("Paste");
c=b.OleFunction("Range",3,3);
c.OlePropertySet("Text","An Excel chart");
XL.OlePropertySet("DisplayAlerts",false);
XL.OlePropertyGet("Workbooks").OlePropertyGet("Item",1).OleProcedure("SaveAs","test.xls");
XL.OleProcedure("Quit");
WD.OlePropertySet("DisplayAlerts",false); b.OleProcedure("SaveAs","test2.DOC");
WD.OleProcedure("Quit");
XL=Unassigned;
WD=Unassigned;