Chart Position with VBA

[paddydive]

Hi,

I have recorded a macro which creat a Pia Chart. I hv also recorded location of the chart which is on sheet Main.

My requirement is that can i put the chart on Cell J22. is it possible.

below is my code :

charts.Add
Activechart.ChartType =xlPie
activechart.SetSourceData Source:=Sheets("Sheet4").Range("U83:V84")
activechart.Location where:=xlLocationAsObject, Name:="Main"

 

[p45cal]

add:

With ActiveChart.Parent
    .Top = Range("J22").Top
    .Left = Range("J22").Left
    'include these lines to make it fit exactly on J22:
    '.Height = Range("J22").Height
    '.Width = Range("J22").Width
End With

 

[paddydive]

Thanks p45cal..

You rock.... that helped me a lot... thanks again.

 

[AlphaFrog]

Yet another method...

    Dim rng As Range
    
    Set rng = Range("J22:P37") 'Area to put the chart in
    
    With Sheets("Main").ChartObjects.Add _
        (Left:=rng.Left, Width:=rng.Width, Top:=rng.Top, Height:=rng.Height)
        .Chart.SetSourceData Source:=Sheets("Sheet4").Range("U83:V84")
        .Chart.ChartType = xlPie
    End With

 

[paddydive]

Thanks AlphaFrog,

I found this quite lenthy method, might be because i m new to VBA coding and not familar with it.

But I appriciate it, you guys are doing a great job.

thanks again.