Inserir imagem/jpg no Excel.

Question

Galera, usando o esquema Excel.Application dá pra inserir imagem? Tipo um trecho código que tô usando é:[code:1:ed6f7a0ec6]...   try      Excel := CreateOleObject(´Excel.Application´);      Excel.Work...

Adriano Santos · Answer

O negócio é loko pelo jeito hein? rsrsMeu, 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...

Michael · Answer

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

Michael · Answer

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

Paulocesar1301 · Answer

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

Adriano Santos · Answer

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

Adriano Santos · Answer

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;

Fórum Inserir imagem/jpg no Excel. #314692