Charts modifizieren Nr.2
TommiH
nun habe ich (dank Karin) zwar einen schönen Chart erzeugt, finde aber leider nirgends in der Hilfe Infos dazu, wie ich Folgendes noch bewerkstelligen kann.
Ich möchte den untersten Balken nach oben haben, etwas von den anderen abgesetzt und in einer eigenen Farbe. Achja - und die X-Achse fix auf 120 setzen, also egal welche Werte kommen.
.MaximumScale = 120 funktioniert z.B. leider nicht... - gibt es da nicht irgendwo eine Auflistung der Befehle, das ich nicht immer hier im Forum nerven muss?
Oder geht die Sache mit dem umsortieren nicht so einfach und ich nehme besser Hilfsspalten?
Tommi
With ActiveSheet.Shapes.AddChart.Chart
.Parent.Top = Rows(q + 1).Top
.Parent.Left = Columns(1).Left
.SetSourceData Source:=Range("'Tab'!$A$" & q - 8 & ":$A$" & q - 2 & ",'Tab'!$D$" & q - 8 & ": _
$D$" & q - 2)
.SetSourceData Source:=Range("'Tab'!$A$" & q - 8 & ":$A$" & q - 2 & ",'Tab'!$D$" & q - 8 & ":$ _
D$" & q - 2)
.ChartType = xlCylinderBarClustered
.SetElement (msoElementLegendNone)
.ApplyDataLabels
.Rotation = 0
.SeriesCollection(1).Interior.ColorIndex = 43 ' Farbe des gesamten Charts anpassen
.Axes(xlCategory).ReversePlotOrder = True
.Axes(xlCategory).Crosses = xlMaximum
.Parent.Height = 335 ' Höhe fix einstellen
.Parent.Width = 600 ' Breite fix einstellen
End With