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
Bookmarks