VBA – Range to jpg picture

by

The main error has @J_Lard mentioned already in his comment.

But I would use ChartObject rather than a Chart sheet. Whith this you can determine the size of the output instead of getting the whole chart area in the picture.

And while using F8 step the paste and export will work, while real time run, the ChartObject needs to be activated.

Sub Export()

 Dim oWs As Worksheet
 Dim oRng As Range
 Dim oChrtO As ChartObject
 Dim lWidth As Long, lHeight As Long

 Set oWs = ActiveSheet
 Set oRng = oWs.Range("B2:H11")

 oRng.CopyPicture xlScreen, xlPicture
 lWidth = oRng.Width
 lHeight = oRng.Height

 Set oChrtO = oWs.ChartObjects.Add(Left:=0, Top:=0, Width:=lWidth, Height:=lHeight)

 oChrtO.Activate
 With oChrtO.Chart
  .Paste
  .Export Filename:="Case.jpg", Filtername:="JPG"
 End With

 oChrtO.Delete

End Sub

If path is not specified, the Case.jpg will be saved in default
save location. This is probably your user documents directory C:\Users\YourName\Documents\

More Related Contents:

  1. How do I get values from a hidden worksheet using VBA [closed]
  2. How to copy cells that contain certain text to another worksheet [closed]
  3. VBA Macro for copying and pasting columns on same excel sheet
  4. Excel VBA, code to count the # of filled cells, then find highest and 2nd highest and subtract the corresponding column #’s [closed]
  5. Levenshtein Distance in VBA [closed]
  6. VBA Runtime Error 1004 “Application-defined or Object-defined error” when Selecting Range
  7. How do I base64 encode a string efficiently using Excel VBA?
  8. Assign event handlers to controls on user form created dynamically in VBA
  9. Programmatic Access To Visual Basic Project Is Not Trusted
  10. Can I make this macro more efficient or faster?
  11. Conditional Formatting using Excel VBA code
  12. Controlling IE11 “Do you want to Open/Save” dialogue window buttons in VBA
  13. How to get the background color from a Conditional Formatting in Excel using VBA
  14. VBA Excel Populate ListBox with multiple columns
  15. VBA Integer Overflow at 70,000
  16. How to count up text of a different font colour in excel
  17. How to “flatten” or “collapse” a 2D Excel table into 1D?
  18. VBA Macro to compare all cells of two Excel files
  19. How do I use variables to set properties in VBA (Excel)
  20. VBA: Else without If Error
  21. How to highlight a cell using the hex color value within the cell?
  22. Convert RTF (Rich Text Format) code into plain text in Excel
  23. lastrow and excel table.
  24. Open a workbook from VBA and disable Workbook_Open() code?
  25. Creating form programmatically in the module using vba
  26. How to filter listbox values based on a Textbox value
  27. Find and FindNext for Excel VBA
  28. How to have vba execute every 10 minutes?
  29. Read and write from/to registry in VBA
  30. Unable to read data from a CSV using ADO due to the driver thinking I am working with integers/number and showing nulls instead of text

Leave a Comment