Gostaria de antemão agradecer a ajuda que sempre recebo aqui.
Bom como sempre faço, eu peço a ajuda aqui porém continuo tentando desenvolver a ideia, como consegui resolvi fechar o tópico e postar o resultado, caso seja útil pra alguém.
Dentro do código tem as devidas explicações do que cada parte faz, lembrando que a parte do código que exporta o JPEG é creditada a Maximiliano Meyer.
1. Selecionar a área a ser exportada sem precisar que o range fique fixo na rotina, pois tenho várias abas com dados de tamanhos diferentes e automaticamente fica inviável colocar 1 código desses para região a ser exportada.
Essa parte eu resolvi deixando visível somente as células que serão exportadas, também saiu bem com o comando ActiveCell.CurrentRegion.Select.
2. Aumentando o .Height e o .Width, gera um arquivo maior consequentemente de qualidade melhor, porém queria deixar o Width fixo em um valor e o Height o acompanhasse proporcionalmente, isso pelo fato de ter planilhas com tamanhos de áreas diferentes. Assim, a largura ficaria sempre a mesma e a altura a acompanharia proporcionalmente, com isso sempre teria um arquivo proporcional ao que está na aba e com boa qualidade.
E essa parte eu resolvi com uma outra rotina que copia a planilha como imagem, cria uma nova aba e cola a imagem lá, depois aumenta a largura mantendo a proporção do shape com LockAspectRatio = msoTrue e salva a largura e a altura em uma variável que é usada na macro de exportar JPEG.
Aos moderadores: Não sei se posso agir aqui dessa forma, abrindo o tópico e eu mesmo postando o resultado e fechando, caso não seja este o procedimento, peço desculpas e espero orientação.
Att,
Felipe Ecks
Este post foi modificado 4 anos atrás por
Felipe Ecks
Postado : 14/08/2020 12:31 pm