Excel VB ChartWizard

[COLOR=rgba36, 39, 41, 1]I create 3 Charts through a macro. With the ChartWizard method I apply certain arguments to the chart. Now I wanted to change the look by using gallery:= "xILine, xIColumn". No matter what I do, the charts won't change there look. It's always showing me 3 Standard-Column Charts. I know coding the fragment for every chart once isn't the best solution, maybe it doesn't work because of this... Appreciate every idea, thanks![/COLOR]


[COLOR=var--highlight-keyword]Sub[/COLOR][COLOR=var--highlight-color] chart[/COLOR]

[COLOR=var--highlight-color][COLOR=var--highlight-comment]'Lege Bereich in Excel fest für Grafik 0[/COLOR] [COLOR=var--highlight-keyword]Dim[/COLOR] rng [COLOR=var--highlight-keyword]As[/COLOR] Range [COLOR=var--highlight-keyword]Set[/COLOR] rng = Range[COLOR=var--highlight-variable]"C3:K13"[/COLOR][COLOR=var--highlight-comment]'Grafik mit verschiedenen Parametern erstellen per ChartWizard Funktion[/COLOR] [COLOR=var--highlight-keyword]Set[/COLOR] co = ActiveSheet.ChartObjects.Addrng.Left, rng.Top, rng.Width, rng.Height co.chart.ChartWizard Source:=Range[COLOR=var--highlight-variable]"$U$3:$AF$3, $U$7:$AF$7, $U$9:$AF$9"[/COLOR] _ , _ Gallery:=xIColumn, Format:=[COLOR=var--highlight-namespace]12[/COLOR], PlotBy:=xlRows, _ CategoryLabels:=[COLOR=var--highlight-namespace]1[/COLOR], SeriesLabels:=[COLOR=var--highlight-namespace]0[/COLOR], HasLegend:=[COLOR=var--highlight-namespace]1[/COLOR] co.chart.ChartColor = [COLOR=var--highlight-namespace]26[/COLOR] co.chart.SeriesCollection[COLOR=var--highlight-namespace]1[/COLOR].Name = [COLOR=var--highlight-variable]"Projektertrag"[/COLOR] co.chart.SeriesCollection[COLOR=var--highlight-namespace]2[/COLOR].Name = [COLOR=var--highlight-variable]"Projektkosten"[/COLOR] [COLOR=var--highlight-comment]'Lege Bereich in Excel fest für Grafik 1[/COLOR] [COLOR=var--highlight-keyword]Dim[/COLOR] rng1 [COLOR=var--highlight-keyword]As[/COLOR] Range [COLOR=var--highlight-keyword]Set[/COLOR] rng1 = Range[COLOR=var--highlight-variable]"C15:K25"[/COLOR][COLOR=var--highlight-comment]'Grafik mit verschiedenen Parametern erstellen per ChartWizard Funktion[/COLOR] [COLOR=var--highlight-keyword]Set[/COLOR] co = ActiveSheet.ChartObjects.Addrng1.Left, rng1.Top, rng1.Width, rng1.Height co.chart.ChartWizard Source:=Range[COLOR=var--highlight-variable]"$U$3:$AF$3, $U$23:$AF$23, $U$25:$AF$25"[/COLOR] _ , _ Gallery:=xILine, Format:=[COLOR=var--highlight-namespace]12[/COLOR], PlotBy:=xlRows, _ CategoryLabels:=[COLOR=var--highlight-namespace]1[/COLOR], SeriesLabels:=[COLOR=var--highlight-namespace]0[/COLOR], HasLegend:=[COLOR=var--highlight-namespace]1[/COLOR] co.chart.ChartColor = [COLOR=var--highlight-namespace]26[/COLOR] co.chart.SeriesCollection[COLOR=var--highlight-namespace]1[/COLOR].Name = [COLOR=var--highlight-variable]"Ergebnis kum. [CHF]"[/COLOR] co.chart.SeriesCollection[COLOR=var--highlight-namespace]2[/COLOR].Name = [COLOR=var--highlight-variable]"Zielwert [CHF]"[/COLOR] [COLOR=var--highlight-comment]'Lege Bereich in Excel fest für Grafik 2[/COLOR] [COLOR=var--highlight-keyword]Dim[/COLOR] rng2 [COLOR=var--highlight-keyword]As[/COLOR] Range [COLOR=var--highlight-keyword]Set[/COLOR] rng2 = Range[COLOR=var--highlight-variable]"C27:K38"[/COLOR][COLOR=var--highlight-comment]'Grafik mit verschiedenen Parametern erstellen per ChartWizard Funktion[/COLOR] [COLOR=var--highlight-keyword]Set[/COLOR] co = ActiveSheet.ChartObjects.Addrng2.Left, rng2.Top, rng2.Width, rng2.Height co.chart.ChartWizard Source:=Range[COLOR=var--highlight-variable]"$U$3:$AF$3, $U$35:$AF$35, $U$17:$AF$17"[/COLOR] _ , _ Gallery:=xILine, Format:=[COLOR=var--highlight-namespace]12[/COLOR], PlotBy:=xlRows, _ CategoryLabels:=[COLOR=var--highlight-namespace]1[/COLOR], SeriesLabels:=[COLOR=var--highlight-namespace]0[/COLOR], HasLegend:=[COLOR=var--highlight-namespace]1[/COLOR] co.chart.ChartColor = [COLOR=var--highlight-namespace]26[/COLOR] co.chart.SeriesCollection[COLOR=var--highlight-namespace]1[/COLOR].Name = [COLOR=var--highlight-variable]"Vorleistungen kum"[/COLOR] co.chart.SeriesCollection[COLOR=var--highlight-namespace]2[/COLOR].Name = [COLOR=var--highlight-variable]"Vorleistungen"[/COLOR] [/COLOR]

[COLOR=var--highlight-keyword]End[/COLOR][COLOR=var--highlight-color] [/COLOR][COLOR=var--highlight-keyword]Sub[/COLOR]