.NET Chart控件饼图内部标签重叠，如何调整属性使标签排列在色块内

可以通过以下内置属性配置解决标签重叠问题，不需要额外引入第三方组件：

• 调整饼图起始旋转角度
  通过PieStartAngle自定义扇区排布的起始角度，将占比较小的扇区调整到视觉上更宽敞的位置，避免小扇区集中堆积导致标签挤在一起。示例配置：

.Series(0)("PieStartAngle") = "90" ' 取值范围0-360，可根据实际数据调整到最优角度

• 启用内置智能标签规则
  .NET Chart控件自带的SmartLabelStyle支持内部标签的自动位置调整，避免重叠，同时可限制标签不会超出扇区范围：

.Series(0).SmartLabelStyle.Enabled = True
.Series(0).SmartLabelStyle.AllowOutsidePlotArea = LabelOutsidePlotAreaStyle.No ' 禁止标签飘到扇区外
.Series(0).SmartLabelStyle.MaxMovingDistance = 8 ' 标签最大可调整的像素距离，数值越大调整弹性越高
.Series(0).SmartLabelStyle.IsOverlappedHidden = False ' 优先调整位置，不要直接隐藏重叠标签

• 调整3D视图参数
  3D模式下的倾斜、旋转、厚度参数都会影响标签的可用空间，可降低倾斜角度避免前后扇区遮挡标签：

.ChartAreas(0).Area3DStyle.Inclination = 10 ' 倾斜角度，建议取值10-20，避免角度过大挤压扇区可视空间
.ChartAreas(0).Area3DStyle.Rotation = 5 ' 3D视角旋转角度，可配合起始角度调整扇区布局
.ChartAreas(0).Area3DStyle.PointDepth = 40 ' 饼图厚度，不要设置过高

• 可选优化方案
  如果数据中存在多个占比低于5%的小扇区，建议：

1. 单独缩小小扇区标签的字号，或者将占比低于阈值的扇区标签隐藏，仅在图例中展示信息
2. 合并多个小扇区为「其他」分类，减少扇区总数，从根源避免标签重叠

整合后的完整配置代码示例 #

With Chart2
    .Series.Clear()
    .Titles.Clear()
    .Series.Add("Series1")
End With

Dim series As Series = Chart2.Series("Series1")
series.ChartType = SeriesChartType.Pie
Chart2.DataSource = dt

With Chart2
    ' 3D样式配置
    .ChartAreas(0).Area3DStyle.Enable3D = True
    .ChartAreas(0).Area3DStyle.Inclination = 10
    .ChartAreas(0).Area3DStyle.Rotation = 5
    .ChartAreas(0).Area3DStyle.PointDepth = 40

    ' 数据绑定
    .Series(0).XValueMember = "AccountName"
    .Series(0).YValueMembers = "PolicyAmount"
    .Series(0).IsValueShownAsLabel = True
    .Series(0).Label = "(#VALY) #PERCENT"
    .Series(0).LegendText = "#VALX (#VALY)(#PERCENT)"

    ' 标签核心配置
    .Series(0)("PieLabelStyle") = "inside"
    .Series(0)("PieStartAngle") = "90"
    .Series(0).Font = New Font("Segoe UI", 9, FontStyle.Bold)
    ' 智能标签防重叠配置
    .Series(0).SmartLabelStyle.Enabled = True
    .Series(0).SmartLabelStyle.AllowOutsidePlotArea = LabelOutsidePlotAreaStyle.No
    .Series(0).SmartLabelStyle.MaxMovingDistance = 8
    .Series(0).SmartLabelStyle.IsOverlappedHidden = False

    .Titles(0).Font = New Font("Segoe UI", 10, FontStyle.Bold)
    .Legends(0).Font = New Font("Segoe UI", 9, FontStyle.Bold)
End With

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