Liebe Alleswissende,
ich erzeuge manuell ein Stapeldiagramm:
- selektieren Bereich
- einfügen „Gestapelte Säulen 100%“ -> erzeugt 7 gleich hohe Säulen
- selektieren Diagramm
- Dateityp ändern „Gestapelte Säulen“ -> erzeugt gewünschtes Stapeldiagramm
Durch Makrogenerator erzeugter Code:
Sub Lagerdiagramm()
' Test zur Erzeugung eines Stapeldiagramms für Holzlager
' (Holzarten und Füllungsgrad je Lager)
Range("F11:I18").Select
ActiveSheet.Shapes.AddChart2(297, xlColumnStacked100).Select
' ActiveChart.SetSourceData Source:=Range("Tabelle2!$F$11:$I$18") überflüssig(?)
ActiveChart.ChartType = xlColumnStacked100
End Sub
Wenn ich den per Makrogenerator erzeugten Code ablaufen lasse, werden die gleich hohen Säulen nicht in das Stapeldiagramm umgewandelt.
Auch andere Wege führen nicht zum Ziel. Bei keinem meiner Versuche bringt „xlColumnStacked100“ (oder der Referenzwert 53) irgendeinen Effekt.
Im www habe ich einen Beitrag gefunden, bei dem „xlColumnStacked100“ auch nicht funktioniert.
Habt Ihr Ideen?
Danke im Voraus
Alfred
SYSTEM
Windows 10 Pro, Excel 2016 MSO (16.0.9001.2018) 32 Bit
DATEN
Lager 1 Lager 2 Lager3
Esche 15
Erle 35
Kiefer 50
Tanne 70
Kiefer 30
Birke 30
Hasel 10
|