Exportar gráfico como Imagem com VBA – Excel

Olá Amigos,

Muitas vezes estamos trabalhando em um projeto onde precisamos Exportar gráfico como Imagem com VBA – Excel, para usar em uma apresentação, em um formulário de sistema ou até mesmo para mandar por e-mail.

Pensando nisso deixo aqui a rotina abaixo onde você poderá exportar seus gráficos como imagem de uma maneira simples e rápida, facilitando assim o seu trabalho.

Primeiramente você precisará ter um gráfico em sua planilha e após isso deverá acessar o ambiente de programação do VBA, com ALT+F11, insira um novo módulo e cole a rotina abaixo…

 

Sub Exportar_Grafico()

'Exportar gráfico como Imagem - Excel VBA
'Douglas Godoy - Excel VBA e Dashboards

Dim objChrt As ChartObject
Dim myChart As Chart

    Set objChrt = Sheets("Relatorios").ChartObjects(1)
    Set myChart = objChrt.Chart

    myFileName = "1.png"

    On Error Resume Next
    Kill ThisWorkbook.Path & "\" & myFileName
    On Error GoTo 0
    myChart.Export Filename:=ThisWorkbook.Path & "\" & myFileName, Filtername:="PNG" 

End Sub

O que este código Faz?

Ele fala para a  variável objChrt que seu valor é = Sheets(“Relatorios”).ChartObjects(1) onde o número 1 é o gráfico 1.

Após isso ele gera o nome do gráfico que será exportado, myFileName = “1.png”.

Aqui ele apaga um arquivo que possa existir no diretório que contenha o mesmo nome: Kill ThisWorkbook.Path & “\” & myFileName

E após isso ele exporta o gráfico como imagem.
myChart.Export Filename:=ThisWorkbook.Path & “\” & myFileName, Filtername:=”PNG”

Por hoje é isso, post rápido e objetivo que busca te ajudar a Exportar gráfico como Imagem com VBA – Excel.

Um abraço!
Douglas Godoy

Comentários