Export chart as image – with click of a button

by

Is this what you are trying?

Also if you are trying to save it as jpg then why a png filter? I have changed “myChart.jpg” to “myChart.png”. Change as applicable.

Sub ExportChart()
    Dim objChrt As ChartObject
    Dim myChart As Chart

    Set objChrt = Sheets("Graphs").ChartObjects(3)
    Set myChart = objChrt.Chart

    myFileName = "myChart.png"

    On Error Resume Next
    Kill ThisWorkbook.Path & "\" & myFileName
    On Error GoTo 0

    myChart.Export Filename:=ThisWorkbook.Path & "\" & myFileName, Filtername:="PNG"

    MsgBox "OK"
End Sub

More Related Contents:

  1. Sequence of numbers based on start and end value of 2 cells [closed]
  2. Function to convert column number to letter?
  3. Better way to find last used row
  4. How to insert a picture into Excel at a specified cell position with VBA
  5. 2 Dimensional array from range [closed]
  6. Save multiple sheets to .pdf
  7. Having multiple Excel instances launched, how can I get the Application Object for all of them?
  8. How can I create a calendar input in VBA Excel?
  9. Using Google Chrome in Selenium VBA (Installation Steps)
  10. Dir() function not working in Mac Excel 2011 VBA
  11. Merge values of column B based on common values on column A
  12. How to use workbook.saveas with automatic Overwrite
  13. How to import a table from web page (with “div class”) to excel?
  14. Range limit conundrum
  15. How do you run a .exe with parameters using vba’s shell()?
  16. How to determine the last Row used in VBA including blank spaces in between [duplicate]
  17. How to use FindWindow to find a visible or invisible window with a partial name in VBA
  18. How do you get a Range to return its Name?
  19. Passing variable from Form to Module in VBA
  20. How to give a time delay of less than one second in excel vba?
  21. Changing the date format to yyyy-mm-dd
  22. Delete all duplicate rows Excel vba
  23. Excel VBA: Convert a date string to a Unix timestamp
  24. excel to pdf ignores print area and calls printer
  25. excel vba freeze pane without select
  26. Converting a string representation of a constant into a constant?
  27. VBA WinHTTP to download file from password proteced https website
  28. Create folder path if does not exist (saving from VBA)
  29. Access files with long paths (over 260)
  30. Concatenate multiple ranges using vba

Leave a Comment