Problema con traspaso de archivo jpg o bmp a excel

[vicvil]

Estoy creando un archivo en excel con el componente TExcelAplication y necesito pasarle un archivo jpg o bmp. He visto en algunos foros que se puede hacer de la siguiente forma :

ActiveSheet.Pictures.Insert(ruta).select;

esto lo corroboré grabando una macro en excel donde inserto una imagen desde un archivo y al ver la macro me muestra esta misma instrucción.
Lo malo está que cuando creo esta linea en el programa me envia el error que ActiveSheet no esta declarado.
Intente hacerlo anteponiendo el TExcelApplication de la siguiente forma

xlapp.ActiveSheet.Pictures.Insert(ruta).select;

pero aqui me envia el arror de que Pictures no esta declarado.

¿Que me está faltando para solucionar el problema?
¿Hay que declarar ActiveSheet? ¿Como se haria?

[Bicho]

Hola revísate éste (http://www.clubdelphi.com/foros/showthread.php?t=10979) hilo a ver si te ayuda a completar lo que te falta

Espero te sirva

Saludos

[vicvil]

Gracias Bicho pero ya habia visto ese hilo. Pero no me responde a la pregunta de por que no reconoce el ActiveSheet.

[roman]

Por eso no me gusta usar las componentes de la paleta Servers.

xlapp.ActiveSheet es de tipo IDispatch, o sea, una interfaz genérica. Así que debes hacer un moldeo para acceder a sus métodos y propiedades:


(xlapp.ActiveSheet as _WorkSheet).Pictures


Pero Pictures también es de tipo IDispatch y no tengo ni la más remota idea de como debe moldearse.

Sin embargo he podido hacer esto:


var
Hoja: _WorkSheet;

begin
ExcelApp.Workbooks.Add(EmptyParam, 0);
Hoja := (ExcelApp.ActiveSheet as _WorkSheet);
Hoja.Shapes.AddPicture('imagen.gif', 0, 1, 10, 10, 40, 60);
end;


esto es, usando la colección Shapes en lugar de Pictures. En este método los cuatro últimos parámetros son las coordenadas y dimensiones de la imagen: left, top, width, height. El segundo parámetro es para indicar si quieres la imagen copiada o sólo una referencia a ella (0 = copiada) y el tercer parámetro déjalo en 1.

// Saludos

[vicvil]

Roman gracias esto si me resulto.