Naar grafieken verwijzen + eigenschappen veranderen

 ActiveSheet.Shapes.AddChart.Select
     ActiveSheet.ChartObjects("Grafiek 2").Name = "Test"
     ActiveChart.ChartType = xlLineMarkers
     ActiveChart.SetSourceData Source:=Range("E41:Q41")
     ActiveChart.SeriesCollection(1).Name = "=""Test"""
     ActiveChart.ApplyLayout (5)
     ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "€ Euro"

 ActiveSheet.ChartObjects("Grafiek 2").Name = "Test"

 Charts("Test").Charttype

Sub testje()
Dim chrtObj As ChartObject
Dim chrt As Object
    
    Set chrt = ActiveSheet.Shapes.AddChart
    With chrt
        .Select
        .Name = "Test"
    End With
    Set chrtObj = ActiveSheet.ChartObjects("Test")
    Set chrt = chrtObj.Chart
    With chrt
        .ChartType = xlLineMarkers
        .SetSourceData Source:=Range("E41:Q41")
        .SeriesCollection(1).Name = "=""Test"""
        .ApplyLayout (5)
        .Axes(xlValue, xlPrimary).AxisTitle.Text = "€ Euro"
    End With
End Sub