VBA生成环形图数据标签重叠求助：设置外侧标签失败

• 环形图的xlLabelPositionOutsideEnd设置需要配合数据标签启用状态和引导线显式开启才能生效，以下是修正后的完整代码：

Sub FixDoughnutChartLabels()
    Dim targetChart As ChartObject
    Dim targetSeries As Series
    
    ' 替换为你的图表对象（可按索引或名称指定）
    Set targetChart = ActiveSheet.ChartObjects("DoughnutChart1")
    Set targetSeries = targetChart.Chart.SeriesCollection(1)
    
    ' 确保数据标签已启用
    targetSeries.HasDataLabels = True
    
    ' 将标签设置到分区外侧
    targetSeries.DataLabels.Position = xlLabelPositionOutsideEnd
    
    ' 强制显示引导线（环形图默认不自动开启）
    targetSeries.DataLabels.ShowLeaderLines = True
    
    ' 可选：缩小字体减少重叠概率
    targetSeries.DataLabels.Font.Size = 9
    
    ' 可选：让引导线颜色匹配对应分区
    Dim pointIndex As Integer
    For pointIndex = 1 To targetSeries.Points.Count
        With targetSeries.Points(pointIndex)
            .DataLabel.LeaderLine.ForeColor.RGB = .Fill.ForeColor.RGB
        End With
    Next pointIndex
End Sub

• 额外优化提示：
  • 如果个别标签仍有重叠，可以单独调整单个数据点的标签位置，比如：

    ' 将第3个数据点的标签移到上方
    targetSeries.Points(3).DataLabel.Position = xlLabelPositionAbove
    

  • 若图表有多系列，需遍历SeriesCollection中的每个系列重复上述设置。

内容的提问来源于stack exchange，提问作者Matt Ferguson