ขึ้น Run-Time Error 1004 Run time Error 1004 copy picture method of range class failed ครับ

[kampanart]

มันโชว์ Run time Error 1004 copy picture method of range class failed เวลาผม Export Range to JPG ครับ

Sub AREA()
Worksheets("AREA").Activate
'ActiveWindow.Zoom = 300
LocationFile = Sheets("LocationFile").Range("A10")
Name_Range = Range("AREA").Select
With Selection
[font].CopyPicture Appearance:=xlScreen, Format:=xlPicture[/font] <<<<< บรรทัดนี่ครับ
With ActiveSheet.ChartObjects.Add(Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
.Name = "TempChart"
.Activate
End With
End With
ActiveChart.Paste
With ActiveSheet.ChartObjects("TempChart")
.Chart.Export LocationFile
.Delete
ActiveWindow.Zoom = 80
End With
End Sub

[snasui]

กรุณา Post Code ให้แสดงเป็น Code จะได้สะดวกต่อการอ่านและคัดลอกไปทดสอบ ดูตัวอย่างได้จากกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

นอกจากนี้ควรแนบไฟล์ที่มีปัญหามาด้วยครับ