如何显示一个系列而不是另一个系列的标记
how to show markers for one series and not for another
我当前任务的一部分是,一旦所有数据都已成功计算(已成功),将绘制一个散点图,显示海拔高度与时间的关系。
这个情节需要两个系列。一个用于轨迹开始到结束,另一个用于显示远地点。
我通过将散点定义为 xlXYScatterSmooth
来设法让图表显示这一点。不过,我更喜欢没有标记的全长系列。
我该怎么做?
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
您可以对 DataSeries
对象使用 .MarkerStyle = xlMarkerStyleNone
。
将它放在所需系列的 With
块内,如下所示:
With SeriesMAX
.Values = MAXyaxis
.XValues = MAXxaxis
.MarkerStyle = xlMarkerStyleNone
End With
我当前任务的一部分是,一旦所有数据都已成功计算(已成功),将绘制一个散点图,显示海拔高度与时间的关系。
这个情节需要两个系列。一个用于轨迹开始到结束,另一个用于显示远地点。
我通过将散点定义为 xlXYScatterSmooth
来设法让图表显示这一点。不过,我更喜欢没有标记的全长系列。
我该怎么做?
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
您可以对 DataSeries
对象使用 .MarkerStyle = xlMarkerStyleNone
。
将它放在所需系列的 With
块内,如下所示:
With SeriesMAX
.Values = MAXyaxis
.XValues = MAXxaxis
.MarkerStyle = xlMarkerStyleNone
End With