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