چاپ فقط چارت های موجود در اکسل (آموزشی)

[ali.b]

با سلام
با این کد میتونین همه چارت های موجود رد فایل اکسل چه شیت فهال یا غیر فعال رو جداگانه پرینت بگیرین

Sub PrintEmbeddedChartsinWORKSHEET()
 
'Prints all embedded worksheets that are on the active worksheet
'
     Dim ChartList As Integer
     Dim X As Integer
     ChartList = ActiveSheet.ChartObjects.Count
     For X = 1 To ChartList
         ActiveSheet.ChartObjects(X).Select
         ActiveSheet.ChartObjects(X).Activate
         ActiveChart.PrintOut Copies:=1
     Next
End Sub