紧急求助!SOS!如何在MsChart图表曲线上,将其相应的数据显示在上面啊????

解决方案 »

  1.   

    With Chart_Tab
            For Row = 1 To 12
                .Row = Row
                .data = Month_Fee(Row - 1)
                .RowLabel = Str(Row) + "月"
                With .Plot.SeriesCollection(Row)
                    .DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeAbovePoint
                    .SeriesMarker.Auto = False
                    .DataPoints(-1).Marker.Style = VtMarkerStyle3dBall
                    .DataPoints(-1).Marker.Size = 70
                    .SeriesMarker.Show = True
                End With
            Next Row
        End With