2017-06-02 1 views
3

zeigt Erste Tage der Verwendung von VBA also bitte mit mir blank.wie man Markierungen für eine Reihe und nicht für andere

Ein Teil meiner aktuellen Aufgabe ist es, nachdem alle Daten erfolgreich berechnet wurden (es hat), eine Streuung darzustellen, die Höhe gegen die Zeit zeigt.

Dieses Diagramm erfordert zwei Serien. Eine für die Flugbahn beginnt zu beenden und eine andere, um das Apogäum zu zeigen.

Ich habe es geschafft, das Diagramm dazu zu bringen, dies zu zeigen, indem ich die Streuung als xlXYScatterSmooth definiere. Ich würde es vorziehen, dass die ganze Länge keine Markierungen hat.

Wie mache ich das?

Dim Chart1 As Chart 
Dim xaxis As Range 
Dim yaxis As Range 
Dim MAXyaxis As Range 
Dim Series As Series 
Dim SeriesMAX As Series 

Set yaxis = DisplayCorrectedAlt 
Set xaxis = Range(Cells(1, 1), Cells(RowCount, 1)) 
Set MAXyaxis = Cells(1, 9) 
Set MAXxaxis = Cells(1, 10) 

Set Chart1 = Charts.Add 
    With Chart1 
     .ChartType = xlXYScatterSmooth 
    End With 

Set Series = Chart1.SeriesCollection.NewSeries 
    With Series 
     .Values = yaxis 
     .XValues = xaxis 
    End With 

Set SeriesMAX = Chart1.SeriesCollection.NewSeries 
    With SeriesMAX 
     .Values = MAXyaxis 
     .XValues = MAXxaxis 

    End With 
+0

Sie können mit 'xlXYScatterSmoothNoMarkers' –

+0

Versuch' .MarkerStyle = xlMarkerStyleNone' innerhalb des 'With' Block der Reihe, die Sie nicht wollen, Markierungen an. –

+0

@ A.S.H danke für den Vorschlag, leider, weil es nur eine Lesung für das Apogäum gibt es nicht zeigt –

Antwort

2

Sie können .MarkerStyle = xlMarkerStyleNone gegen die DataSeries Objekt verwenden.

Platz es im Inneren des With Block der gewünschten Serie, wie folgt aus:

With SeriesMAX 
    .Values = MAXyaxis 
    .XValues = MAXxaxis 
    .MarkerStyle = xlMarkerStyleNone 
End With 
Verwandte Themen