Я продолжаю получать сообщение об ошибке при попытке запустить этот код, когда я пытаюсь создать график

Question

Ниже приведен код, который я пытался запустить на Excel VBA, но я продолжаю получать сообщение об ошибке при попытке этого макроса.

Sub Demand()
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "demand"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "demand"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "demand"
    Range("E1:E52").Select
    ActiveSheet.Shapes.AddChart2(227, xlLineMarkers).Select
    ActiveChart.SetSourceData Source:=Range("DATA!$E$1:$E$52")
        ActiveSheet.Shapes("Chart 4").IncrementLeft 204
    ActiveSheet.Shapes("Chart 4").IncrementTop -34
    ActiveSheet.Shapes("Chart 4").ScaleHeight 1.4722222222, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Chart 4").ScaleWidth 1.1111111111, msoFalse, _
        msoScaleFromBottomRight
    Application.CutCopyMode = False

End Sub

Answer 1

Исправления:

Sub Demand()

    Dim co, cht As Chart

    Range("E1").Value = "demand"

    Set co = ActiveSheet.Shapes.AddChart2(227, xlLineMarkers)
    Set cht = co.Chart

    cht.SetSourceData Source:=Range("DATA!$E$1:$E$52")
    co.Left =  Range("E2").Left 'for example
    co.Top = Range("E2").Top
    co.Height = 400
    co.Width = 400

End Sub