Dê uma olhada nesse artigo que publiquei e veja se ajuda. http://www.devmedia.com.br/articles/viewcomp.asp?comp=1298
Adriano Santos ------------------------------------------------------------- Editor Técnico Revista ClubeDelphi www.delphitodelphi.blogspot.com www.devmedia.com.br www.devmedia.com.br/clubedelphi/pagina.asp fabio giro respondeu: > > Peguei estas duas dicas na lista. > > try > xlws.Shapes.AddPicture(logofname, LinkToFile, SaveWithDocument, 1, 1, > 143, 32); > except > end; > Onde: > xlws é um objeto do tipo TExcelWorksheet > logofname é uma variável que contem o path + o nome do jpg > LinkToFile pode ser setado para 0 > SaveWithDocument informa se a imagem deve ser salva no local de > destino, sete ela para 1 > os dois ultimos parametros, 143 e 32, correspondem as medidas que você > quer que a imagem tenha na planilha > ************************************************** > www.devmedia.com.br/articles/viewcomp.asp?comp=1298&hl= > > Espero ter ajudado. > > Jorge Ericsson <[EMAIL PROTECTED] > <mailto:jericssonsup%40gmail.com>> escreveu: > Olá amigos delphianos, > > Primeiramente desejo a todos do grupo um 2008 repleto de desafios e mais > conhecimentos. > Que o desejo de todos se realizem neste ano que se inicia. > > Pessoal, através de OleContainer eu atribuir dados em uma planinha e > formatei os campos do jeito que precisava, mas não consegui acrescentar na > primeira linha da primeira coluna a logo do meu cliente. > > Alguém tem uma idéia de como faço isso automaticamente sem ter que ir na > opção INSERIR IMAGEM ?: > > Obs.: Alguém utiliza o componente DevExpress cxSpreadBook ? > > []´s > > Jorge Ericsson S. Pinheiro > Analista/Projetista de Sistemas > Ericsson Sistemas e Soluções > http://www.jericsson.com.br <http://www.jericsson.com.br> > 61 9227.4785 / 3965.2992 / 3039.1768 > Brasília - DF > > [As partes desta mensagem que não continham texto foram removidas] > > --------------------------------- > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para > armazenamento! > > [As partes desta mensagem que não continham texto foram removidas] > > > ------------------------------------------------------------------------ > > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.5.516 / Virus Database: 269.19.6/1230 - Release Date: 17/01/2008 > 16:59 >