Sub SaveAllChart()Dim Work_Sheet As Excel.WorksheetDim Save_Destination As StringDim Chart_Obj As ChartObjectDim Chart_Image As ChartDim a As Integera = 1Save_Destination = ActiveWorkbook.Path & “\”For Each Work_Sheet In ActiveWorkbook.WorksheetsWork_Sheet.ActivateFor Each Chart_Obj In Work_Sheet.ChartObjectsChart_Obj.ActivateSet Chart_Image = Chart_Obj.Chart myFileName = Save_Destination & Work_Sheet.Name & a & “.png”a = a + 1 On Error Resume NextKill Save_Destination & Work_Sheet.Name &“Excel-Export Chart as png” yazısının devamını oku
asKeops 