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

[ali.b]

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

Sub PrintEmbeddedChartsinWORKBOOK()

'This macro will print all embedded charts in the active workbook
'
Application.ScreenUpdating = False
Dim Sht As Object
Dim Cht As ChartObject
For Each Sht In ActiveWorkbook.Sheets
For Each Cht In Sht.ChartObjects
Cht.Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut
Next
Next
End Sub