Treemap formatieren
15.08.2022 08:52:19
Sven
ich bin was Makros angeht nur mit dem Makrorekorder vertraut, aber mit dem komme ich gerade nicht weiter und wollte fragen, ob mir einer helfen kann :)
Das Makro habe ich mit Hilfe anderer schon weit passend zusammengebaut. Jetzt bekomme ich aber die letzte Formatierung nicht mehr hin.
Und zwar will ich:
1. die Treemap soll in H88:L95 eingefügt werden.
2. ich will die Farbe der einzelnen Felder ändern.
3. (nicht so wichtig) - der Rahmen soll entfernt werden
Wüsste jemand wie man das machen könnte?
Hier noch das Makro was ich schon habe:
Sub TreemapErstellen()
Dim chrDia As Object
Set chrDia = ActiveSheet.Shapes.AddChart2(410, xlTreemap)
chrDia.Name = "Dia3"
With chrDia.Chart
With .FullSeriesCollection(1)
.XValues = "=$E$89:$E$94"
.Values = "=$F$89:$F$94"
End With
.SetElement (msoElementChartTitleNone)
.SetElement (msoElementLegendNone)
End With
End Sub
Liebe Grüße