Imagem no excel

Ok, blz, funcionando, porém, ainda não consigo fazer com que ela seja inserido repetidamente, exemplo:

tenho uma temp-table com varios registros.....

tenho comandos para geração do relatorio que diz que a cada x linhas é inserido um novo registro da tabela....
no caso a imagem tbm teria que seguir a mesma logica.... as instruções da imagem esta dentro do meu for each e loop de repetição, porem a imagem é duplicada sempre no mesmo lugar....

Ajudem-me.

Boa Tarde!

Bom Pelo Menos já está funcionando, isso é ótimo!

A questão de inserir várias imagens é fácil. Toda vez que for inserir uma imagem, primeiro você precisa selecionar o local onde ela será inserida, e somente após ter selecionado ex: chWorkSheet:Range("D10"):select() você insere a imagem.


Exemplo:

Código:

chWorkSheet:Range("D1"):select().
chworkSheet:Pictures:Insert("C:\Imagem.jpg"):Select.

chWorkSheet:Range("D10"):select().
chworkSheet:Pictures:Insert("C:\Imagem.jpg"):Select.

Substitua isso ai no seu código pelo endereço da sua imagem, e veja que vai inserir duas imagens, umas iniciando na COluna D Linha 1 e Outra em D10.


Só basta você por a dinamicidade da programação.

Código:

chWorkSheet:Range("D" + STRING(vLinha)):select().
chworkSheet:Pictures:Insert("C:\Imagem.jpg"):Select.

/*chWorkSheet:Range("D" + STRING(vLinha)):select().
chworkSheet:Pictures:Insert(tt-Table.Endereco_Imagem):Select.
*/

/*IF tt-Table.Linha = lalalalala THEN DO:*/

chWorkSheet:Range("E"  + STRING(vLinha)):select().
chworkSheet:Pictures:Insert("C:\Imagem.jpg"):Select.
/* Aqui Em baixo de cada imagem inserida, tendo ela ainda selecionada, se for necessário você ajusta a Width e Higth...*/

/*END.*/

Deu pra Sacar?

Espero ter ajudado,
Eriuton Charles

Blz Amigos... muito obrigado pela ajuda.... tudo funcionando agora.....

Galera, outro problema que nao conigo resolver.....

Quebra de paginas.....

preciso que sempres de 50 em 50 linhas ele realize a quebra de página....

não consigo


ajudem-me

Boa Tarde !

Tinha postado isso no outro post que você abriu.

Veja se funciona. Vais definir um contador ... e a cada xLinhas você vai zerar ele.

Código:

DEF VAR vContador AS INT.

/* No Seu Código.. Incrementa o Contador Junto com o vLinha...*/

ASSIGN vLinha       = vLinha + 1
            vContador = vContador + 1.

IF vContador = 44 THEN DO:

/* Aqui ele Seta a quebra de página */
chWorksheet:HPageBreaks:Add(chWorksheet:Range("A" + STRING(vLinha))). 
  
/* Zera ele a cada 44 Linhas */
ASSIGN vContador = 0.

END.

Um Abraço!
Eriuton Charles