ReSizing Chart to fit Width and Columns

[sajeel]

Hi,

I am trying to Copy a Chart from 1 sheet, Paste it into another in a specific location based on Columns and ROWS.

I have managed to get the code to copy and paste to a particular cell, however cannot re-size it to fit the required Rows and Columns.

Steps involved are:

1)Copy a Named Chart based on If Function in Sheet "Heart Rate"
2)Paste into Sheet Report and Rename the Chart to "BMI"
3)Re-size the chart to fit between Cells B3:I15 (Cannot get this to work)



Sub Macro6()
'
' Macro6 Macro
'

'

If Worksheets("Heart Rate").Range("O3") = 1 Then

Worksheets("Heart Rate").ChartObjects("Chart 2").Activate
ActiveChart.ChartArea.Copy
Sheets("Report").Select
Range("B3").Select
ActiveSheet.Paste


ActiveChart.Parent.Name = "BMI"




Else

Worksheets("Heart Rate").ChartObjects("Chart 3").Activate
ActiveChart.ChartArea.Copy
Sheets("Report").Select
Range("B3").Select
ActiveSheet.Paste

ActiveChart.Parent.Name = "BMI"



End If

End Sub