snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
Sub savechart1()
Dim wk As Variant
Set wk = Sheets("Monthly Performance").Range("$A$12")
If MsgBox("Save chart : Zen Approval status " & wk, vbInformation + vbOKCancel) = vbOK Then
Sheets("Monthly Performance").ChartObjects("Approval status") _
.Chart.Export _
Filename:="ECR-DCN Approval status" & wk, filtername:="JPG"
End If
End Sub
You do not have the required permissions to view the files attached to this post.