Thnx Andy,
Took me a while to get it all sorted out. Didn't know that it was possible to change the charttype for just a series.
Code is below, just for those who want to know it.
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:="PM"
With ActiveChart
.SetSourceData Source:=Sheets("PM").Range("B2:B13,E2:E13,G2:G13"), PlotBy:=xlColumns
.SeriesCollection.NewSeries
.SeriesCollection.NewSeries
.SeriesCollection(1).Values = "='PM'!R2C5:R13C5"
.SeriesCollection(1).Name = "='PM'!R1C4"
.SeriesCollection(2).Values = "='PM'!R2C7:R13C7"
.SeriesCollection(2).Name = "='PM'!R1C6"
.SeriesCollection(3).Values = "='PM'!R2C13:R13C13"
.SeriesCollection(3).Name = "='PM'!R1C11"
.ApplyCustomType ChartType:=xlBuiltIn, TypeName:="Lijn-kolom met 2 assen"
.SeriesCollection(2).ChartType = xlColumnStacked
.SeriesCollection(2).Interior.ColorIndex = 3
.SeriesCollection(1).Interior.ColorIndex = 1
.SeriesCollection(3).Border.ColorIndex = 48
.SeriesCollection(3).MarkerStyle = xlNone
.Parent.Height = 145
.Parent.Width = 370
.Parent.Top = 20
.Parent.Left = 470
End With
Bookmarks