Grafiek maken met een macro

[troj]

Hallo,

Ik heb een macro opgenomen die onder andere een grafiek maakt in een Excelwerkblad. Dit werkt in principe prima, alleen wordt voor de naam van de grafiek elke keer een nummer gekozen (grafiek 1, grafiek 2 enz.). Op het moment dat ik dan de macro test werkt de macro niet meer omdat grafiek 2 automatisch grafiek 3 is geworden. Hoe kan ik dit oplossen? De vraag zal ongetwijfeld vaker gesteld zijn, maar ik kan het niet vinden.

Ik werk met Excel 2010. Zie hieronder de code. Alvast bedankt.

sub test2()
'
' test2 Macro
'

'
    Range("I2:J6").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("Voorbeeld!$I$2:$J$6")
    ActiveSheet.Shapes("Grafiek 26").IncrementLeft 18.75
    ActiveSheet.Shapes("Grafiek 26").IncrementTop 207
    With ActiveSheet.Shapes("Grafiek 26").Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent3
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0.400000006
        .BackColor.ObjectThemeColor = msoThemeColorAccent3
        .BackColor.TintAndShade = 0
        .BackColor.Brightness = 0.8000000119
        .TwoColorGradient msoGradientHorizontal, 1
    End With
    ActiveSheet.Shapes("Grafiek 26").Fill.Visible = msoTrue
    ActiveSheet.Shapes("Grafiek 26").Fill.Visible = msoTrue
    ActiveSheet.Shapes("Grafiek 26").Fill.Visible = msoTrue
    Range("I9").Select
End Sub