Macro to Place chart in specified Range

Maybe something like this...

    Dim wksDest As Worksheet
    Dim MyChart As Chart
    
    Set wksDest = Worksheets("OM Error Trend")
    
    With wksDest
        Set MyChart = .ChartObjects.Add( _
            Left:=.Range("L1").Left, _
            Top:=.Range("L1").Top, _
            Width:=300, _
            Height:=200).Chart
    End With
    
    With MyChart
        .SetSourceData wksDest.PivotTables("PivotTable1").TableRange2
        .ChartType = xl3DColumnClustered
    End With

Change the width, height, pivot table name, and chart type accordingly.

Hi,

Thanks a lot of your help. It work perfectly.

Rep Added.

Regards,
Shiva

Hi All,

I was able to create the graph almost similar to the COlored Lines graph.

Dim wksDest As Worksheet
    Dim MyChart As Chart
    
    Set wksDest = Worksheets("OM Error Trend")
    
    With wksDest
        Set MyChart = .ChartObjects.Add( _
            Left:=.Range("A54").Left, _
            Top:=.Range("A54").Top, _
            Width:=500, _
            Height:=300).Chart
    End With
    
    With MyChart
        .SetSourceData wksDest.PivotTables("PivotTable1").TableRange2
        .ChartType = xlLine

But Can anyone tell me the way to select this graph and choose background colour as Black?

Regards
Shiva

I tried that adding below my code.

Here is the error Message " Object Variable or with block variable not set.
Error stoped at "ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:="Colored Lines" in VBA

Wow, I am not sure how you did it. But it is working flawlessly.

Thanks a bunch.
Rep added.

Regards
Shiva