Grafieken in VisualBasic aanpassen

[Wniq]

Ik werk met Excel 2007 en wanneer je daarin een macro record, dan wordt er wanneer je met grafieken aan de gang gaat niets meer ge-record. Lastig, dus vandaar dat ik hier terecht kom.

Ik heb de volgende werkende code:

If ActiveCell.Value = Range("$B$501").Value Then

ActiveSheet.ChartObjects("Chart 001").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).Name = "='Chart 003'!$B$505"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "='Chart 003'!$B$506"
ActiveChart.SeriesCollection(2).Values = "='Chart 003'!$F$505:$H$505"
ActiveChart.SeriesCollection(2).Select
Selection.Interior.Color = "Green"

Else

ActiveSheet.ChartObjects("Chart 001").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).Name = "='Chart 003'!$B$23"
On Error Resume Next
ActiveChart.SeriesCollection(2).Delete

End If

Ik wil echter aan SeriesCollection(2) nadat ik hem "green" gemaakt heb ook nog de 3-D effecten veranderen
In Excel zelf doe ik dan:
Right-Click op de data serie
Format data series
3D format
Bevel top width 6pt
Bevel top heigth 6pt
Bevel bottom width 6pt
Bevel bottom heigth 6pt

Iemand enig idee hoe ik dat naar vb moet vertalen?

Bij voorbaat veel dank.