Hallo VBA Spezialisten,
Innerhalb eine Makros rufe ich n-mal eine Subroutine zur Erstellung vom Diagrammen in Excel auf. Nun erscheinen in aufeinanderfolgenden Aufrufen auch die Datenpunkte aus den vorangehenden Aufrufen.
Bei jedem Aufruf lösche ich jeweils das alte Diagramm in Excel und fülle den Array mit neuen Daten.
Zur Dimensionierung der Arrays verwende ich bei jedem Aufruf die Dim und Redim-Anweisung
Dim A() As Variant, B() As Variant
ReDim A(auslang, 0) As Variant, B(auslang)
Als Charttype benutze ich ChartType = xlLineMarkers,
Teilweise unterdrücke ich die Diagrammlinie und weise den Datenpunkte eine Form zu.
.SeriesCollection(5).Format.Line.Visible = msoFalse
.SeriesCollection(5).Values = vnt6Values
.SeriesCollection(5).Format.Line.Visible = msoFalse
.SeriesCollection(5).MarkerSize = 5
.SeriesCollection(5).MarkerStyle = 8
.SeriesCollection(5).MarkerBackgroundColor = vbBlue
.SeriesCollection(5).MarkerForegroundColor = vbBlack
Woher hat
|