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

[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