标题：[求助]饼图显示问题

1楼

lgj716330 发表于：2024/11/8 16:35:00

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个像素

当r("科目名称") 比较长的时候，就如下面这样显示一团，有什么办法可以自动缩小显示在扇形之内

此主题相关图片如下：微信图片_20241108163331.png

2楼

有点蓝 发表于：2024/11/8 16:49:00

缩不了。

1、偏移设置为正值，离中心点远一点：

Series.DataLabelOffset = 5

2、换行

Series.DataLabelText =r("科目名称") & vbcrlf & Math.Round(r("同期费用金额") * 100 / sm, 2) & "%" '计算百分比

共2 条记录, 每页显示 10 条, 页签: [1]