none
Codigo so funciona depurando RRS feed

  • Pergunta

  • A macro funciona perfeitamente quando depuro passo a passo a execução dos comandos. Mas quando eu mando executar normalmente, os comandos de formatação não funcionam bem. Como se fosse rápido demais e alguns comandos são ignorados. Mas se eu executo linha a linha, funciona perfeitamente!

    Alguém tem alguma ideia pra me ajudar?

    esse e o codigo

    Sub TabelaFormulário()
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    Dim cht As ChartObject
    Dim rng As Range
    Dim sCaminho As String
    sCaminho = "C:\Users\Elias\Desktop\temp\teste.jpg"


    Set ws = Sheets("Planilha3")
    'Copia o Intervalo como imagem para Área de Transferência
    With ws
    'Altere o Intervalo abaixo como desejar
    Set rng = .Range("R1:AA49")
    rng.CopyPicture xlScreen, xlBitmap
    'Cria gráfico
    Set cht = .ChartObjects.Add(0, 0, rng.Width, rng.Height)
    End With



    With cht
    'Cola figura dentro do gráfico
    .Chart.Paste
    'Salva gráfico como imagem
    .Chart.Export sCaminho
    UserForm5.Show
    'Apaga o Objeto gráfico. Ele serviu apenas para que salvássemos a imagem numa Pasta
    .Delete
    End With



    'Opcional. Apague o arquivo temporário após o término da rotina:
    'Kill sCaminho

    End Sub

    sexta-feira, 14 de junho de 2019 23:02