问VBA导出为jpg

EN

'//Creat a jpg image using charts
 Dim rng As Range
 Dim shtTemp As Worksheet
 Dim chtTemp As Chart
 Application.ScreenUpdating = False
 '// Range
 Set rng = Worksheets("Receipt").Range("B2:E27")
 shReceipt.rows("2:27").EntireRow.AutoFit
 '// Add a temp worksheet. Chart will be placed on this. It will be deleted after
 Set shtTemp = Worksheets.Add
 '// Add chart
 Charts.Add
 '// Move the chart to the new sheet and get a reference to it
 ActiveChart.Location Where:=xlLocationAsObject, Name:=shtTemp.Name
 Set chtTemp = ActiveChart
 '// Copy and paste the range
 rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
 chtTemp.Paste

 With ActiveChart.Parent
.Height = 520 ' resize
.Width = 360 ' resize
 End With


 '// Export

ChDir ActiveWorkbook.Path
Dim Name As String, Path, filename
Name = InvTable.ListColumns("Customer").DataBodyRange(r).Value
Dim Inv As Double
Inv = InvTable.ListColumns("Invoice Number").DataBodyRange(r).Value

filename = "\" & Inv & "_" & Name & ".jpg"
''//This PDF folder is recognised-no error
Path = ThisWorkbook.Path & "\" & Range("PDF_Folder").Value

''//This path is regonised-no error
'Path = ThisWorkbook.Path

''//This New folder creates an error (it does exist in the workbook path
''Path = ThisWorkbook.Path & "\" & Range("New_Folder").Value
chtTemp.Export filename:=Path & filename