VBA Excel - Salve um gráfico como uma imagem - How to Save a Chart as Image using Excel VBA

Consultancy in Excel, Access, VBA and PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

Que tal tornar mais fácil o envio dos seus gráficos para um Slide do MS Powerpoint, ou mesmo para documentos no MS Word?

Sub SaveChartAsImage()

Dim oCht As Chart

Set oCht = ActiveChart

On erRROR GoTo Err_Chart

' Escolha qual o formato que prefere:

oCht.Export Filename:="C:\Bernardes\Images\PopularICON.jpg", Filtername:="JPG"

'oCht.Export Filename:="C:\Bernardes\Images\ExcelChartExport.png", Filtername:="png"

Err_Chart:

If Err <> 0 Then

Debug.Print Err.Description

Err.Clear

End If

End Sub

Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...

Tags: VBA, Excel, Chart, Image, Save, Chart to Image, Conversion, Chart to GIF, Export, Jpeg