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