Excel exportar print screen para jpeg em pasta específica

[valdir de Souza teixeira j]

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

[Rafael Tuco]

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

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