Inserir imagem/jpg no Excel.
02/03/2006
0
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] := ´QUALQUER COISA´;
Excel.Cells[1,2] := ´QUALQUER COISA DE NOVO´;
Excel.Cells[2,1] := ´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
Posts
02/03/2006
Adriano Santos
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
02/03/2006
Michael
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
02/03/2006
Michael
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
03/03/2006
Paulocesar1301
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
03/03/2006
Adriano Santos
Vlw msm velhinho.
03/03/2006
Adriano Santos
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;
Clique aqui para fazer login e interagir na Comunidade :)
