Diagramm--Makro---Problem
20.02.2006 14:21:01
Neokun
Ich habe ein Makro entwickelt um per Knopfdruck ein diagramm von einem bestimmten datenbereich erstellen zu lassen, in dem makro habe ich auch angegeben das er die kategorien der einzelnen daten anzeigt. wenn ich das diagramm dann aber per knopfdruck erstellen lasse, fehlen diese und der hintergrund ist auch grau und nicht weis...hat jemand eine idee was ich da machen kann?
den code hänge ich euch hier unten mit an.
Vielen Dank für Eure Mühe im vorraus.
MFG Jens
Code:
Sub Quartal1()
' Quartal1 Macro
Charts.Add
ActiveChart.ChartType = xl3DPieExploded
ActiveChart.SetSourceData Source:=Sheets("Overview").Range("D7:D19"), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).XValues = "=Overview!R7C3:R19C3"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Chart"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Umsatz Quartal 1"
End With
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlBottom
ActiveChart.ChartArea.Select
End Sub