MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Exportar Formulário como Imagem PNG ou JPG e definir Resolução.

    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 291
    Registrado : 24/02/2013

    Exportar Formulário como Imagem PNG ou JPG e definir Resolução. Empty Exportar Formulário como Imagem PNG ou JPG e definir Resolução.

    Mensagem  brunogor 2/10/2024, 18:12

    Olá a todos,

    Desde já, muito agradeço a partilha do exemplo em questão. pelo Sr. Marcelo David.

    Tendo por base o referido exemplo:
    https://www.maximoaccess.com/t42907-exportar-para-imagem-bmp-formularios-do-access?ns=9tZFr3JfRifbz%2BhO9pSEag%3D%3D#290003

    É possível exportar a imagem como ".PNG" ou ".JPG" e aumentar a sua Resolução?

    Mais uma vez, o meu muito obrigado.

    Bruno Gordino

    .


    Última edição por brunogor em 23/10/2024, 16:58, editado 3 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    Exportar Formulário como Imagem PNG ou JPG e definir Resolução. Empty Re: Exportar Formulário como Imagem PNG ou JPG e definir Resolução.

    Mensagem  Alvaro Teixeira 23/10/2024, 12:16

    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 291
    Registrado : 24/02/2013

    Exportar Formulário como Imagem PNG ou JPG e definir Resolução. Empty Re: Exportar Formulário como Imagem PNG ou JPG e definir Resolução.

    Mensagem  brunogor 23/10/2024, 13:05

    Olá Sr. Alvaro, como tem passado.

    Jã não trocávamos mensagens há algum tempo.

    No código que me passou não consigo encontrar qualquer referência à Resolução, ou estou a ver mal?

    Muito obrigado pela atenção dispensada.

    Cumprimentos

    Bruno Gordino


    Última edição por brunogor em 23/10/2024, 17:00, editado 2 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    Exportar Formulário como Imagem PNG ou JPG e definir Resolução. Empty Re: Exportar Formulário como Imagem PNG ou JPG e definir Resolução.

    Mensagem  Alvaro Teixeira 23/10/2024, 15:40

    Olá Bruno,

    Para o chamado "resize" apenas conheço desta forma:
    Código:
    https://www.devhut.net/vba-wia-resize-scale-an-image/

    Abraço
    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 291
    Registrado : 24/02/2013

    Exportar Formulário como Imagem PNG ou JPG e definir Resolução. Empty Re: Exportar Formulário como Imagem PNG ou JPG e definir Resolução.

    Mensagem  brunogor 23/10/2024, 16:29

    Viva Sr. Alvaro,

    Parece-me que o código do site
    Código:
     https://www.devhut.net/vba-wia-resize-scale-an-image/
    , serve somente para redimensionar imagens já existentes numa pasta.

    O que eu pretendo é poder manipular a Resolução da imagem antes de a exportar, utilizando o exemplo do caríssimo Marcelo: https://www.maximoaccess.com/t42907-exportar-para-imagem-bmp-formularios-do-access?ns=9tZFr3JfRifbz%2BhO9pSEag%3D%3D#290003 ,

    No entanto tentei e coloquei num modulo geral, o código da página que me passou:
    Código:
    https://www.devhut.net/vba-wia-resize-scale-an-image/

    Substitui o codigo do exemplo do amigo Marcelo:
    Código:
    Call ExportaFormParaImagem(f, strLocalSalvar)

    Por este, do site que me indicou, mas dá erro no argumento "f":
    Código:
    Call WIA_ResizeImage(f, strLocalSalvar, 800, 600, True, True)

    Consegue ajudar?

    Bruno Gordino
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    Exportar Formulário como Imagem PNG ou JPG e definir Resolução. Empty Re: Exportar Formulário como Imagem PNG ou JPG e definir Resolução.

    Mensagem  Alvaro Teixeira 24/10/2024, 00:05

    Olá Bruno,

    Na minha opinião deve exportar como estava.
    Depois da exportação fazer a conversão, aparentemente por uma rápida leitura do código da função você é que colocou o parametro "f" que supostamente deve ser o ficheiro origem a ser convertido para redimensionar.

    Boa sorte.
    Abraço
    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 291
    Registrado : 24/02/2013

    Exportar Formulário como Imagem PNG ou JPG e definir Resolução. Empty Re: Exportar Formulário como Imagem PNG ou JPG e definir Resolução.

    Mensagem  brunogor 24/10/2024, 12:55

    Viva Sr. Alvaro

    Preciso mesmo que, no exemplo postado pelo amigo Marcelo, a imagem seja exportada com mais Resolução.  

    Se a redimensionar, numa pasta, após a exportação vai perder ainda mais qualidade.

    Vou aguardar por uma  possível nova ajuda a a este tópico.

    Qualquer das maneiras, muito obrigado Sr. Alvaro pela sua atenção.

    Cumprimentos

    Bruno Gordino
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    Exportar Formulário como Imagem PNG ou JPG e definir Resolução. Empty Re: Exportar Formulário como Imagem PNG ou JPG e definir Resolução.

    Mensagem  Alvaro Teixeira 24/10/2024, 16:59

    Olá Bruno Gordino,

    Veja este exemplo antigo que encontrei do grande "Jefferson Jimenez" que creio que faz o que pretende (está 32 bits).
    Terá que ajustar para 64 bits se for o caso e depois converter de BMP para PNG ou JPEG

    Abraço
    Anexos
    Exportar Formulário como Imagem PNG ou JPG e definir Resolução. AttachmentCapturaPantalla.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (177 Kb) Baixado 4 vez(es)
    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 291
    Registrado : 24/02/2013

    Exportar Formulário como Imagem PNG ou JPG e definir Resolução. Empty Re: Exportar Formulário como Imagem PNG ou JPG e definir Resolução.

    Mensagem  brunogor 25/10/2024, 07:42

    Bom dia Sr. Alvaro

    Acabei de testar o exemplo, adaptei para 64x (Ptrsafe), mas acho que por ter o Win11 dá erro aqui:
    Código:
    OleCreatePictureIndirect Pic, IID_IDispatch, 1, IPic ' Create the picture object

    Tenho duvidas que este exemplo se adeque ao Win11, pois cada vez que se chama o PrintSreen, abre uma janela fosca para se escolher algumas opções de captura.

    Obrigado na mesma Sr. Alvaro.

    Bruno Gordino
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    Exportar Formulário como Imagem PNG ou JPG e definir Resolução. Empty Re: Exportar Formulário como Imagem PNG ou JPG e definir Resolução.

    Mensagem  Alvaro Teixeira 25/10/2024, 10:22

    Olá Bruno Gordino,

    Se poder partilhar a versão 64 bits, o fórum agradece Wink

    Relativamente à situação de abrir o programa de captura, pode desligar.
    Vá às Definições -> Acessibilidade -> Teclado  e desligue, veja:

    Exportar Formulário como Imagem PNG ou JPG e definir Resolução. 041

    Abraço
    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 291
    Registrado : 24/02/2013

    Exportar Formulário como Imagem PNG ou JPG e definir Resolução. Empty Re: Exportar Formulário como Imagem PNG ou JPG e definir Resolução.

    Mensagem  brunogor 28/10/2024, 15:27

    Viva,

    Aqui está a versão para 64x, mas a dar erro.

    Cumprimentos

    Bruno Gordino
    Anexos
    Exportar Formulário como Imagem PNG ou JPG e definir Resolução. AttachmentCapturaPantalla_64.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (302 Kb) Baixado 2 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    Exportar Formulário como Imagem PNG ou JPG e definir Resolução. Empty Re: Exportar Formulário como Imagem PNG ou JPG e definir Resolução.

    Mensagem  Alvaro Teixeira 29/10/2024, 10:14

    Olá Bruno Gordino,

    Obrigado pela partilha (64 bits), seria necessário fazer alteração ao código e usar o oleaut32.dll em vez do olepro32.dll .

    No entanto encontrei outro código que procurava que faz o que precisa e funciona em ambas as versões.
    Segue o link da origem e também o ficheiro de exemplo para ficar aqui no nosso fórum.

    access-programmers.co.uk/forums/showthread.php?t=245198


    Abraço
    Anexos
    Exportar Formulário como Imagem PNG ou JPG e definir Resolução. AttachmentPrintScreen - Sample.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (35 Kb) Baixado 3 vez(es)
    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 291
    Registrado : 24/02/2013

    Exportar Formulário como Imagem PNG ou JPG e definir Resolução. Empty Re: Exportar Formulário como Imagem PNG ou JPG e definir Resolução.

    Mensagem  brunogor 30/10/2024, 16:34

    Boa tarde, Sr. Álvaro

    Acabei de experimentar o exemplo que me passou.

    Embora funcione, não tem a mais valia/ particularidade do exemplo facultado pelo colega Sr. Marcelo, que consiste em capturar somente o que se encontra dentro da janela activa, não ficando na imagem a Frame do Formulário, Botão Close, etc.

    Ainda tenho esperança que o Sr. Marcelo faculte um exemplo melhorado, com a possibilidade de aumentar a resolução, conforme prometido.

    Qualquer das maneira muito obrigado por toda a sua interação.

    Cumprimentos

    Bruno Gordino


    Conteúdo patrocinado


    Exportar Formulário como Imagem PNG ou JPG e definir Resolução. Empty Re: Exportar Formulário como Imagem PNG ou JPG e definir Resolução.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 03:31