Boa noite,
eu tenho o codigo a baixo que seleciona uma parte da planilha, gera a imagem e exporta para um arquivo JPG.
se mando executar direto, ele gera uma imagem em branco,
mas quando executado com F8 ele gera a imagem certinho.
alguem tem uma ideia do que pode ser?
ja coloquei a função DoEvents, Sleep e nada.
Sub Gera_Imagem()
Dim rng As Range
Dim ws As Worksheet
Dim cht As ChartObject
Sheets("Visão Coordenação").Select
Range("A1").Select
Set ws = ActiveSheet
'Copia range como imagem para Área de Transferência
With ws
Set rng = .Range("F2:O27")
rng.CopyPicture xlScreen, xlBitmap
End With
'Cria gráfico, cola figura dentro, salva gráfico como imagem e apaga tudo
Set cht = ActiveSheet.ChartObjects.Add(0, 0, rng.Width, rng.Height)
With cht
.Chart.Paste
.Chart.Export "C:\Users\IZABDAN\Pictures\Vendas_Quadrante.jpg"
.Delete
End With
End Sub
