- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]饼图显示问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=194092)
-- 发布时间：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个像素
Next
当r("科目名称") 比较长的时候，就如下面这样显示一团，有什么办法可以自动缩小显示在扇形之内
此主题相关图片如下：微信图片_20241108163331.png
-- 发布时间：2024/11/8 16:49:00
--
缩不了。
1、偏移设置为正值，离中心点远一点：
Series.DataLabelOffset = 5
2、换行
Series.DataLabelText =r("科目名称") & vbcrlf & Math.Round(r("同期费用金额") * 100 / sm, 2) & "%" \'计算百分比