Dim ch1 as Chart
Set ch1 = Charts.Add
With ch1
.ChartType = xlXYScatterLinesNoMarkers
.Location xlLocationAsNewSheet, cname
.HasTitle = True
.ChartTitle.Characters.Text = "tit"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "xx"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "yy"
.HasLegend = True
.Legend.Position = xlBottom
End With
Wenn in der Arbeitsmappe keine Diagramme enthalten sind, funktioniert das Skript; beim zweiten Durchlauf wird ein neues Diagramm erstellt, aber bei ".HasTitle = True" erfolgt Laufzeitfehler 1004.
Wer kann mir helfen?
Vielen Dank im Voraus.
Manfred