02/03/2006

Inserir imagem/jpg no Excel.

Galera, usando o esquema Excel.Application dá pra inserir imagem?
Tipo um trecho código que tô usando é:

...
   try
      Excel := CreateOleObject(´Excel.Application´);
      Excel.Workbooks.add(1);
   except
      Application.MessageBox (´Versão do Ms-Excel´+
      ´Incompatível´,´Erro´,MB_OK+MB_ICONEXCLAMATION);
   end;

   Excel.Cells[1,1&93; := ´QUALQUER COISA´;
   Excel.Cells&91;1,2&93; := ´QUALQUER COISA DE NOVO´;
   Excel.Cells&91;2,1&93; := ´MUDOU A LIINHA´;

   Excel.columns.AutoFit;
   Excel.visible := True;
...



Preciso agora inserir uma imagem, mesmo que eu precise indicar o caminha da mesma. Vlw


Adriano Santos

Respostas

02/03/2006

Adriano Santos

O negócio é loko pelo jeito hein? rsrs
Meu, já fucei na net inteira e não achei nada parecido. Achei umas units para exportação para delphi com várias funções, menos com imagens.

Se alguém souber, please :P


Responder Citar

02/03/2006

Michael

Olá!

Não sei de cabeça quais os métodos vc deve usar, mas vc pode acessar todas as opções dos menus do Excel via automação, então vc pode executar o menu Inserir, Figura, Do arquivo, e passar o caminho da imagem. Os nomes dos menus deverão em inglês, se não me engano.

Se sua versão do Dephi permitir, tente usar o componente [b:043baa4b8a]TExcelApplication[/b:043baa4b8a], da paleta [b:043baa4b8a]Server[/b:043baa4b8a].

[]´s


Responder Citar

02/03/2006

Michael

Achei algo no site da MSDN. Dê uma olhada.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbaxl11/html/xlmthAddPicture1_HV03084415.asp

Veja tbm este outro link:

http://www.winsoft.sk/officfaq.htm#Q22

[]´s


Responder Citar

03/03/2006

Paulocesar1301

Ótimas dicas...

Aos amigos que ainda tiverem alguma dúvida... pq não criam uma nova macro no excel... executam os comandos que quizerem e depois, abrindo o vba do office, facilmente transporte-os para o delphi... faço assim e é muito mais fácil...

Abraços


Responder Citar

03/03/2006

Adriano Santos

Grande [b:97aee771b0]Michael[/b:97aee771b0], vlw...isso já me dá uma luz.

Vlw msm velhinho.


Responder Citar

03/03/2006

Adriano Santos

Ae mano, valeu funcionou usando os componentes da paleta Servers do Delphi. Assim que eu tiver um exemplo completo vou montar um artigo bem básico e pedir para o Luciano publicar na minha coluna, assim fica registrado.

Basicamente é usar o seguinte esquema:

procedure TForm1.Button5Click(Sender: TObject);
begin
  // LinkToFile (True = make link to file, False = make copy of the file in document)
  // xlsSheet = Este é o componente TExcelWorkSheet
  // SaveWithDocument (must be True if LinkToFile is False)
  // Left
  // Top
  // Width
  // Height)
  xlsSheet.Shapes.AddPicture(´C:\Winnt\Areia.bmp´, 0, 1, 001, 001, 50, 50);
end;



Responder Citar