With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "P3 Diagramm VLinie"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Dabei soll der Eintrag "P3 Diagramm VLinie" bestehen bleiben und der Dateiname daran angehängt werden.
Gruß und Danke
Frank