Problema con traspaso de archivo jpg o bmp a excel

[[Bicho]]

Hola revísate éste 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:

Código Delphi [-]
(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:

Código Delphi [-]
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.