一般形式: With Chart_Name 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
With Chart_Name
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