We help IT Professionals succeed at work.
Get Started
Troubleshooting Question

Export a range of cells as a picture in Excel

69 Views
Last Modified: 2020-11-27
Hi All

I am trying to export some graphs and range data from an Excel worksheet as Jpeg pictures. I've tried the code below (mostly taken from solutions suggested on various sites).
This works fine for the 3 Chart objects, but for the range of cells (A114:N130) that I want to export as a picture, all it gives me is a bar chart based on the data from the range and inserted as a new worksheet. Also, it displays an Excel warning that the sheet will be deleted when it executes the Chrt,delete code, which I don't want in the final version.
Am I doing something stupid, or is there an easy way to simply export the cells as a picture?
Any help greatly appreciated.

Regards

Terry

Sub ExportSummaryGraphs()

Dim ws As Worksheet
Dim Rng As Range
Dim Chrt As Chart
Dim Pathname As String


    Application.ScreenUpdating = False
    Pathname = ThisWorkbook.Path
    Sheets("SummaryGraphs").Select
    ActiveSheet.Unprotect
    ActiveSheet.ChartObjects("Chart 1051").Chart.Export Pathname & "\Sales Graph.jpg", Filtername:="jpg"
    ActiveSheet.ChartObjects("Chart 1050").Chart.Export Pathname & "\Gross Profit Graph.jpg", Filtername:="jpg"
    ActiveSheet.ChartObjects("Chart 1033").Chart.Export Pathname & "\Net Profit Graph.jpg", Filtername:="jpg"

    Set ws = ActiveSheet
    Set Rng = ws.Range("A114:N130")
    ExportPath = Pathname & "\Summary Table.jpg"
    Set Chrt = ThisWorkbook.Charts.Add
    Rng.CopyPicture xlScreen, xlBitmap

With Chrt
    .Paste
    .Export Filename:=ExportPath, Filtername:="JPG"
End With
    Chrt.Delete
    ActiveSheet.Protect

    Sheets("Main Menu").Select
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub
Comment
Watch Question
Mechanical Engineer
CERTIFIED EXPERT
Distinguished Expert 2020
Commented:
This problem has been solved!
Unlock 1 Answer and 24 Comments.
See Answer
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant

An Experts Exchange subscription includes unlimited access to online courses.

Get Started
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE