VBA - Export to JPG

[j4ymf]

Hello

Im using this code and it converts my sheet to a PDF, can I change is so it exports it to a JPG

many thanks

Sub PrintSelectionToPDF()

' Creates the PDF from a selected range
Dim invoiceRng As Range
Dim strfile As String
Set invoiceRng = Range("A1:N44")
strfile = "" & " " & ".PDF"
strfile = ThisWorkbook.Path & strfile

invoiceRng.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strfile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=True, _
OpenAfterPublish:=True
End Sub

 

[Joe4]

Here is one method: Excel VBA, Save Range/Cells as JPEG - VBA and VB.Net Tutorials, Education and Programming Services

 

[j4ymf]

thank you Joe4

objChart.Export ("D:StuffBusinessTempExample.Jpeg")

what would i use to save it in the current folder?

 

[Joe4]

I think you should be able to use your current "strfile" variable, assuming that is calculating correctly, i.e.

objChart.Export (strfile)

But just be sure to change the file extension in that variable calculation from "PDF" to "JPG" or JPEG".