none
Salvar range do excel como imagem e exportar RRS feed

  • Pergunta

  • 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

    quinta-feira, 9 de maio de 2019 20:05