ich habe zwei einfachst gestrickte Diagrammtypen mit dem Recorder aufgezeichnet.
Liniendiagramm
Sub a_linie()
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartType = xlLine
End Sub
Balkendiagramm
Sub a_balken()
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartType = xlColumnClustered
ActiveChart.FullSeriesCollection(1).ChartType = xlColumnClustered
ActiveChart.FullSeriesCollection(1).AxisGroup = 1
ActiveChart.FullSeriesCollection(2).ChartType = xlLine
ActiveChart.FullSeriesCollection(2).AxisGroup = 2
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.FullSeriesCollection(1).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
.Solid
End With
End Sub
Ich würde nun gerne mit nur einem Button zwischen den Balken- und Liniendiagramm wechseln.Kann mir bitte ein Profi dieses "wenn, dann .." Prinzip in einem Makro umsetzen?!
Gruss
Fred