.................
Series.Y(0) = r("设计面积_2vp") '指定值Series.DataLabelText = "{#YVAL}"..................
改成:Series.DataLabelText = Format("{#YVAL}","#0.00%") 不生效