Inserir imagem/jpg no Excel.
Galera, usando o esquema Excel.Application dá pra inserir imagem?
Tipo um trecho código que tô usando é:
Preciso agora inserir uma imagem, mesmo que eu precise indicar o caminha da mesma. Vlw
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
Curtidas 0
Respostas
Adriano Santos
02/03/2006
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
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
GOSTEI 0
Michael
02/03/2006
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
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
GOSTEI 0
Michael
02/03/2006
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
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
GOSTEI 0
Paulocesar1301
02/03/2006
Ó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
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
GOSTEI 0
Adriano Santos
02/03/2006
Grande [b:97aee771b0]Michael[/b:97aee771b0], vlw...isso já me dá uma luz.
Vlw msm velhinho.
Vlw msm velhinho.
GOSTEI 0
Adriano Santos
02/03/2006
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:
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;
GOSTEI 0