Hi Leute,
ich habe ein Problem bei einem Makro, das, wenn es aktiviert wird, ein Diagramm erstellt.
Zuvor soll es aber genau dieses Diagramm löschen. Mein Problem ist, dass ich den Namen nicht kenne, den dieses Diagramm hat (der Name wird hochgezählt, z.B. Diagramm9).
Kann ich einen festen Namen für dieses Diagramm vergeben oder aber die Bezeichnung dieses herausfinden?
Code:
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Diagramm").Range("H1:H10"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Peaks
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Peaks"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Test"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Test"
End With
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
With ActiveChart
ActiveChart.PageSetup.ChartSize = xlFitToPage
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Gruß Thomas