Sub
DiagrammBlattErstellen()
ThisWorkbook.Charts.Add Before:=Worksheets(
"Sheet1"
)
ActiveChart.SetSourceData Worksheets(
"Sheet1"
).Range(
"A1:V76"
)
ActiveChart.Name =
"Auswertung"
End
Sub
Sub
DiagrammBearbeiten()
Dim
MeinDiagramm
As
Chart
Set
MeinDiagramm = ThisWorkbook.Charts(
"Auswertung"
)
MeinDiagramm.ChartType = xlLine
MeinDiagramm.HasTitle =
True
MeinDiagramm.ChartTitle.Text =
"Titel"
With
MeinDiagramm.Axes(xlCategory)
.HasTitle =
True
.AxisTitle.Text =
"Datum"
End
With
With
MeinDiagramm.Axes(xlValue)
.HasTitle =
True
.AxisTitle.Text =
"Forecast"
.MinimumScale = 10
.MaximumScale = 500
End
With
End
Sub