Ir ao conteúdo
  • Cadastre-se
valdir de Souza teixeira j

Excel exportar print screen para jpeg em pasta específica

Recommended Posts

Boa tarde pessoal...

 

Estou tentando exportar um print Screen de uma seleção (caixa de seleção) no excel e transformar em JPEG em "C:......\xxx\111".

 

Consegui, porém a imagem que sai é sempre "BRANCO". O que faço para sair o print da seleção ou resgatar a imagem que foi importada?

 

Segue abaixo o que estou usando:

 

Dim sht As Worksheet
Dim intervalo As Range

    Application.ScreenUpdating = True 'False

    Set sht = Planilha1

    Set intervalo = Application.InputBox(Prompt:="Informar o intervalo coluna com os dados", _
Type:=8)
    
    intervalo.CopyPicture Appearance:=xlScreen, Format:=xlBitmap


    With sht.ChartObjects.Add(Left:=10, Top:=10, _
                        Width:=intervalo.Width, Height:=intervalo.Height)
        With .Chart
             .Paste
             .Export ThisWorkbook.Path & "\Priority Top 16.jpg"
        End With
        .Delete

    End With

Compartilhar este post


Link para o post
Compartilhar em outros sites

Porque você não utiliza um software de captura pra isso?

Um excelente que utilizo e que possui diversas funções é o Greenshot.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×