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 ChartSet oCht = ActiveChartOn 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.DescriptionErr.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,
Nenhum comentário:
Postar um comentário