How to create separate chart for each worksheet in a workbook using VBA ?

Aditya Jadhav 

Please give this a try....

Sub InsertCharts()
Dim ws As Worksheet
Dim pt As PivotTable
Dim Rng As Range
Dim ch As Chart
For Each ws In ThisWorkbook.Worksheets
    If ws.PivotTables.Count > 0 Then
        Set pt = ws.PivotTables(1)
        Set Rng = pt.TableRange2
        Set ch = ws.Shapes.AddChart(xlLine).Chart
        With ch
            .SetSourceData Source:=Rng
            .FullSeriesCollection("Rainfall ").ChartType = xlColumnClustered
            .FullSeriesCollection("Rainfall ").AxisGroup = 2
            .Axes(xlValue).MinimumScale = 450
            .Axes(xlValue).MaximumScale = 610
            .Axes(xlValue, xlSecondary).MinimumScale = 0
            .Axes(xlValue, xlSecondary).MaximumScale = 60
            .ShowAllFieldButtons = False
            .SetElement (msoElementLegendBottom)
            .HasTitle = True
            .ChartTitle.Characters.Text = ws.Name
            .Axes(xlValue, xlPrimary).HasTitle = True
            .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "RWL in m (above MSL)"
            .Axes(xlValue, xlSecondary).HasTitle = True
            .Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "Rainfall (mm)"
            .ChartArea.Left = Range("L3").Left
            .ChartArea.Top = Range("L3").Top
        End With
    End If
Next ws
End Sub

For PowerPoint question, please open a new question and I am sure other experts would be able to help you.

If that takes care of your original question, please accept the post with the proposed solution as a Best Response/Answer to mark your question as Solved.