MSChart折线图显示折线折点怎么实现

luocc321 2009-08-03 03:00:14

就是将折线的折点标出来，不是标坐标数据，就是将每个折点放大就好，显示出每个折点，用小圆点或者小方块来显示都好

...全文

2745 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

chinaboyzyq 2009-08-03

打赏
举报

23231803

luocc321 2009-08-03

打赏
举报

哥们，你QQ多少啊，我加你聊吧

luocc321 2009-08-03

打赏
举报

改变标记的大小和样式也都一样的，全部都是十字型的

chinaboyzyq 2009-08-03

打赏
举报

行了吗?

chinaboyzyq 2009-08-03

打赏
举报

.Style = VtMarkerStyleFilledCircle '圆的

chinaboyzyq 2009-08-03

打赏
举报

With MSChart1.Plot.SeriesCollection.Item(1).DataPoints.Item(-1).Marker
.Visible = True '显示标记
.Size = 50 '标记大小
.Style = VtMarkerStyleFilledCircle '标记样式
.FillColor.Automatic = False
.FillColor.Set 0, 255, 255 '填充色
End With

luocc321 2009-08-03

打赏
举报

有没有别的样式呢，为什么每个点都是十字，太丑了，有没有小方块或者小圆点这种样式

chinaboyzyq 2009-08-03

打赏
举报

放在CHECK里面为了:想显示标记点就显示,不想显示就不显示.

luocc321 2009-08-03

打赏
举报

With MSChart1 '标记数据点数据
.Plot.SeriesCollection(1).DataPoints(-1). _
DataPointLabel.LocationType = VtChLabelLocationTypeBelowPoint
End With
你的这段代码实现的是点的数据，我不要出现数字，我要的只是把点放大就好

chinaboyzyq 2009-08-03

打赏
举报

这是我的两个字程序,你挑里面标记点的东西就可以了.
With MSChart1.Plot.SeriesCollection.Item(1).DataPoints.Item(-1).Marker
.Visible = True '显示标记
.Size = 50 '标记大小
.Style = VtMarkerStyleFilledCircle '标记样式
.FillColor.Automatic = False
.FillColor.Set 0, 255, 255 '填充色
End With

luocc321 2009-08-03

打赏
举报

GetMyINI和SetMyINI是什么啊，为什么要放在CHECK里面呢，能否给出直接的代码，只要实现就可

chinaboyzyq 2009-08-03

打赏
举报

Private Sub Check2_Click()
If Check2.Value Then
With MSChart1 '标记数据点数据
.Plot.SeriesCollection(1).DataPoints(-1). _
DataPointLabel.LocationType = VtChLabelLocationTypeBelowPoint
End With
If Val(GetMyINI("显示点数据", "显示", inipath)) Then
Else
SetMyINI "显示点数据", "显示", "1", inipath
End If
Else
With MSChart1 '取消数据点数据标记
.Plot.SeriesCollection(1).DataPoints(-1). _
DataPointLabel.LocationType = VtChLabelLocationTypeNone
End With
If Val(GetMyINI("显示点数据", "显示", inipath)) Then
SetMyINI "显示点数据", "显示", "0", inipath
End If
End If

这是显示标记点的数值.

chinaboyzyq 2009-08-03

打赏
举报

这是我以前写的一段程序,你看看,应该就行了.

chinaboyzyq 2009-08-03

打赏
举报

Private Sub Check1_Click()
Dim serX As Series
MSChart1.Plot.SeriesCollection.Item(1).SeriesMarker.Auto = False

If Check1.Value Then
' Display Markers for Series 1.
With MSChart1.Plot.SeriesCollection.Item(1).DataPoints.Item(-1).Marker
.Visible = True '显示标记
.Size = 50 '标记大小
.Style = VtMarkerStyleFilledCircle '标记样式
.FillColor.Automatic = False
.FillColor.Set 0, 255, 255 '填充色
End With
If Val(GetMyINI("显示点标记", "显示", inipath)) Then
Else
SetMyINI "显示点标记", "显示", "1", inipath
End If
Else
With MSChart1.Plot.SeriesCollection.Item(1).DataPoints.Item(-1).Marker
.Visible = False '隐藏标记
End With
If Val(GetMyINI("显示点标记", "显示", inipath)) Then
SetMyINI "显示点标记", "显示", "0", inipath
End If
End If

End Sub