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

[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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.