如何用vba设置图表系列数据点的数据标记的类型和大小？

如下图所示

在excel图表中，可以设置数据标记为自动、无、以及自定义的图形，还可以设置数据标记的大小。

在vba中分别可以设置系列Series、数据点Point、图例LegendKey对象的数据标记。

其中MarkerStyle属性为数据标记的类型，MarkerSize属性为数据标记的大小，可以是2到72。还可以通过MarkerBackgroundColor和MarkerForegroundColor设置数据标记的填充背景色。

基于以上的知识，以下代码演示了如何设置数据系列以及独立的数据点的数据标记：

Sub QQ1722187970()
    Dim oWK As Worksheet
    Set oWK = Excel.ActiveSheet
    '内嵌在工作表的图表对象
    Dim oChartObject As ChartObject
    Set oChartObject = oWK.ChartObjects(1)
    '图表对象
    Dim oChart As Chart
    Set oChart = oChartObject.Chart
    '图表系列对象
    Dim oSeries As Series
    Dim oAxes As Axes
    '图表数据点对象
    Dim oPoint As Point
    '图表数据点集合对象
    Dim oPoints As Points
    With oChart
        '隐藏图表中的所有数据标签
        .ApplyDataLabels xlDataLabelsShowNone
        '第一个图表系列
        Set oSeries = .SeriesCollection(1)
        With oSeries
            '设置系列的数据标记为无
           .MarkerStyle = xlMarkerStyleNone
            Set oPoints = .Points
            '第一个数据点
            Set oPoint = oPoints(1)
                With oPoint
                    .HasDataLabel = True
                    '设置第一个数据点的数据标记为圆形
                    .MarkerStyle = xlMarkerStyleCircle
                    '设置数据标记的大小
                    .MarkerSize = 5
                End With
        End With
    End With
End Sub

如果设置了数据标记为自定义的类型，可以通过.MarkerStyle = xlMarkerStyleNone将设置的数据标记全部还原为无。