Hallo,
Ab Office 2016 gibt es eine Treemap als Inteligentes Diagramm. Daher nehme ich mal an, dass die Version 2016 eingesetzt wird.
In Excel 2016 funktioniert der angegebene VBA-Code nicht.
Bei der Ausführung bleibt wird in der Zeile
Charts("TreeMap").ChartType = xlTreemap
ein Fehler "Die angegebene Dimension ist ungültig für den aktuellen Digrammtyp" gemeldet.
Auch der nachstehende VBA-Code funktioniert ebenfalls nicht:
Sub Test()
Dim ch As Chart
Set ch = ThisWorkbook.Charts.Add
ch.Name = "Treemap"
ch.ChartType = xlTreemap
With ch.SeriesCollection(1)
.Values = Range(Worksheets("Hilfstabelle").Cells(2, 4), Worksheets("Hilfstabelle").Cells(18, 4))
.XValues = Worksheets("Hilfstabelle").Range(Worksheets("Hilfstabelle").Cells(2, 1), Worksheets("Hilfstabelle").Cells(18, 3))
End With
End Sub
Beim Aufzeichnen der Aktionen mit Hilfe des Makrorekorders wird leider nur die Befehle aufgezeichnet, die zum Markieren des Datenbereichs dienen.
LG, BigBen
|