Insertar imagenes en excel

[[cHackAll]]

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

0j0: GetActiveOleObject

[eligomfer]

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

[eligomfer]

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".

[[cHackAll]]

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

[eligomfer]

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

[[cHackAll]]

Empezado por eligomfer

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

Empezado por cHackAll

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