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

**ali.b** · 2014/07/20, 13:56

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

کد:

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