Imagem no excel

Discussão em 'Progress 4GL' iniciado por rafaelpozzato, Junho 22, 2012.

Página 1 de 2
  1. rafaelpozzato

    rafaelpozzato Sem Pontuação

    Bom dia Gelera....

    estou tendo dificuldades em inserir uma imagem no excel

    tentei o comando:

    chWorkSheet:Range("A1"):select().
    chWorkSheet:pictures:insert("C:\curso\MS\image\lg_ms.bmp").

    porém a minha necesiddate é que a cada novo bloco de registro no excel seja inserido esta imagem.

    outra questão existe parametros que posso definir no código sobre as dimensões desta imagem?


    Aguardo vc's....
    rafaelpozzato, Junho 22, 2012
    #1
  2. jdchaves

    jdchaves Membro Participativo

    Não funcionou este codigo?

    segue um exemplo que usei
    Código:
    DEFINE VARIABLE ch-img              AS COM-HANDLE NO-UNDO.
...
..
ch-img = chexcelapplication:activesheet:Pictures:insert(search("esp/imagem.jpg")).

ch-img:select.
chexcelapplication:Selection:ShapeRange:IncrementLeft(-49.5).
chexcelapplication:Selection:ShapeRange:IncrementTop( -48.75).

...
..
.
release object ch-img                  no-error.
    jdchaves, Junho 22, 2012
    #2
  3. rafaelpozzato

    rafaelpozzato Sem Pontuação

    Nada ainda Amigos
    rafaelpozzato, Junho 22, 2012
    #3
  4. jdchaves

    jdchaves Membro Participativo

    ocorre algum erro ou simplesmente não acontece nada?
    jdchaves, Junho 22, 2012
    #4
  5. rafaelpozzato

    rafaelpozzato Sem Pontuação

    Erro de registro não disponivel....
    rafaelpozzato, Junho 22, 2012
    #5
  6. eriutoncharles

    eriutoncharles Membro Participativo

    Bom dia Amigo!


    Olha Tem a questão da versão do Office.

    Mas Supondo que com este código você consiga inserir uma imagem:

    Código:
    create "Excel.Application" chExcelApplication.
chWorkbook = chExcelApplication:Workbooks:add().
chWorkSheet = chExcelApplication:Sheets:item(1).

chworkSheet:Pictures:Insert("C:\Logo_CAJ.jpg"):Select.
    Com este Você consegue ajustar Linha e Coluna.
    Código:
    chexcelapplication:Selection:ShapeRange:ScaleWidth(2.7,FALSE,FALSE).
chexcelapplication:Selection:ShapeRange:ScaleHeight(2.7,FALSE,FALSE).
    Espero que funcione.
    Eriuton Charles
    eriutoncharles, Junho 22, 2012
    #6
Página 1 de 2

Compartilhe esta Página