Hallo Holger,
kompletter Code Teil lautet:
Dim intTag As Integer
Dim intCB As Integer
Dim dateDate As String
Dim ser As Series
Dim t As Integer
Dim chart_ As ChartObject
Set chart_ = ActiveSheet.ChartObjects.Add(30, 30, 1900, 1000) 'im Tabellenblatt eingefuegt
chart_.Chart.SetSourceData Source:=Sheets("VerarbeitungV2").Range("$B:$C,$E:$O")
chart_.Chart.ChartType = xlXYScatterSmoothNoMarkers
chart_.Chart.Legend.Select
chart_.Name = "Diagramm"
For Each ser In chart_.Chart.SeriesCollection
ser.Format.Line.Weight = 3
Next ser
Selection.Position = xlBottom
With chart_.Chart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = True
.MaximumScale = 100
.MinimumScale = 0
End With
Gibt es ansonsten eine andere Möglichkeit die Linienstärke anzupassen?
Vielen Dank für deine Antwort.
Grüße Timo
|