For Each r As Row In t.Rows
Dim Series As WinForm.ChartSeries = Chart.SeriesList.Add() '增加一个图系
Series.Length = 1 '一个系列只能包括一个值
Series.Y(0) = r("同期费用金额") '指定值
Series.DataLabelText =r("科目名称") & "" & Math.Round(r("同期费用金额") * 100 / sm, 2) & "%" '计算百分比
Series.DataLabelCompass = LabelCompassEnum.RadialText '标示文本径向排列|
Series.DataLabelOffset = -8 '向内偏移8个像素
Next
当r("科目名称") 比较长的时候,就如下面这样显示一团,有什么办法可以自动缩小显示在扇形之内
此主题相关图片如下:微信图片_20241108163331.png