Foros Club Delphi - Insertar imagenes en excel

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Insertar imagenes en excel (https://www.clubdelphi.com/foros/showthread.php?t=21510)

Insertar imagenes en excel

Hola foro:

Ya he visto que existen mas hilos sobre este tema, pero no he conseguido solucionarlo con lo que se decia en ellos, algo are mal :(
Estoy intentando insertar una imagen en un excel en blanco creado desde delphi
lo he intentado con .ActiveSheet.Pictures.Insert('imagen.bmp'); pero me da un error y no encuentra el Pictures me dice undelcared identifier

Agradeceria cualquier ayuda de tipo general para ver si encaminaba un poco el camino.

Muchas gracias de antemano

Buenas Tiagor64

Prueba con esto:

Código Delphi [-]ActiveSheet.Pictures.Insert('imagen.bmp').select;

Salu2

Insertar imagen en excel

Alguien me podria ayudar? Quiero insertar una imagen en un excel creado desde delphi. Gracias

Código Delphi [-]uses ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
var excel: OleVariant;
begin
 excel := CreateOleObject('Excel.Application');
 excel.Workbooks.add.worksheets[1].shapes.addpicture('C:\Imágenes\ClubDelphi.jpg', False, True, 6, 6, 666, 666);
 excel.visible := True
end;

Ofu que de errores

Muchas gracias por tu explicación cHackAll pero no consigo insertar la imagen. Te explico mejor. Ya tengo creado el libro de excel y demas, y quiero insertar una imagen en una casilla concreta pero con tu explicación la inserto en una página nueva. Me sale este error: Incompatible types: 'TOleEnum' and 'TQRImage'. Gracias por todo y siento el no saber

Código Delphi [-] excel.Workbooks[1].worksheets[1].shapes.addpicture('C:\Imágenes\ClubDelphi.jpg', False, True, 6, 6, 666, 666);

0j0: GetActiveOleObject

Buenos dias de nuevo. Sigo sin poder insertar la imagen. A ver, me creo el objeto excel: OleVariant;. Luego pongo:
excel := CreateOleObject('Excel.Application');
excel.teLibro[1].teHoja.shapes.addpicture('C:\Imágenes\ClubDelphi.jpg', False, True, 6, 6, 666, 666);
Pero nada de nada. Gracias

Sigue sin insertarse

Al final tengo esto;
excel := CreateOleObject('Excel.Application');
excel := GetActiveOleObject('Excel.Application');
excel.Visible := True;
excel.teLibro[1].teHoja.Range['A1', 'A1'].shapes.addpicture('C:\Dibujo.bmp', False, True, 6, 6, 666, 666);
Pero nada, sale el error:
"MEthod teHoja not supported by automation object".

Pues no se de dónde te inventaste teLibro y teHoja... los nombres que se utiliza al trabajar con los métodos de un objeto OLE-COM son definidos por el desarrollador de dichos objetos (en éste caso Microsoft).

Si quieres acceder a una hoja diferente debes utilizar otros índices; por ejemplo: worksheets[6]; tambien es posible hacerlo de la siguiente forma:

Código Delphi [-] excel.workbooks('libro6.xls').worksheets('hoja6').activate;
 excel.activesheet.

Te muestro de nuevo un ejemplo con un documento de Excel que ya existe. Tambin te muestro la forma de uso de GetActiveOleObject;

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var excel: OleVariant;
begin
 try
  excel := GetActiveOleObject('Excel.Application');
 except
  try
   excel := CreateOleObject('Excel.Application');
  except
   ShowMessage('No se pudo crear el objeto de Excel');
   Exit;
  end;
 end;
 excel.Workbooks.Open('c:\librucho1.xls').worksheets[1].shapes.addpicture('C:\Imágenes\ClubDelphi.jpg', False, True, 0, 0, -1, -1);
 excel.visible := True
end;

Saludos

Ya se inserta la imagen. Muchas gracias chachall. El problema que tengo ahora es que si tengo abierto mas de un libro, siempre se inserta en el mismo. ¿A que se debe esto? Gracias de nuevo

Cita:

Empezado por eligomfer (Mensaje 261433)

Ya se inserta la imagen. Muchas gracias chachall. El problema que tengo ahora es que si tengo abierto mas de un libro, siempre se inserta en el mismo. ¿A que se debe esto? Gracias de nuevo

Cita:

Empezado por cHackAll (Mensaje 261129)

Si quieres acceder a una hoja diferente debes utilizar otros índices; por ejemplo: worksheets[6]; tambien es posible hacerlo de la siguiente forma:

Código Delphi [-]excel.workbooks('libro6.xls').worksheets('hoja6').activate;
excel.activesheet.

Estas usando .worksheets[1].... debes cambiar de hoja a la que necesitas.

Saludos