Array
(
)

Inserir imagem/jpg no Excel.

Adriano Santos
   - 02 mar 2006

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

#Código


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


Michael
   - 02 mar 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 TExcelApplication, da paleta Server.

[]´s


Michael
   - 02 mar 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


Paulocesar1301
   - 03 mar 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


Adriano Santos
   - 03 mar 2006

Grande Michael, vlw...isso já me dá uma luz.

Vlw msm velhinho.


Adriano Santos
   - 03 mar 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:

#Código


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;