Delphi Excel OLE图表数据标签问题

我想自动生成具有“文本+百分比”形式标签的图表，但是我希望将文本放在一行中，并且其百分比低于下一行（在下一行中）。我使用该函数来生成图表的标签：Delphi Excel OLE图表数据标签问题

E.ActiveChart.ApplyDataLabels(xlDataLabelsShowLabelAndPercent, false,true, 
           true, false, true, true,false, false,'; ');

这个函数生成由分号分隔的标签。所以我基本上想要能够取代'; '有些话说（新线）？！？！或更好，但检查出VBA后，我注意到它在内部编码为 “& Chr（10）&” 但我没有所需的结果，如果我在我的函数中使用此编码。所以我的最终结果必须是这样的： enter image description here

我应该向我的ApplyDataLabels功能

来源

2014-09-06 user1137313

CHR（10）已被普遍使用的窗口，在文本中插入换行符显示在窗口控制。

如果它必须被构造为字符串时，它可能要指定这样：

E.ActiveChart.ApplyDataLabels(xlDataLabelsShowLabelAndPercent, false,true, 
           true, false, true, true,false, false, AnsiString(#10));

来源

2014-09-06 01:23:06

我seing你的答案之前尝试的第一个我和它没有工作。然而第二种方式工作正常。谢谢你的时间+1 – user1137313 2014-09-06 22:37:05

我编辑了我的答案。我不使用Delphi，因此第一个版本我不确定它是否足够聪明，可以将Chr更改为Variant（传递给ApplyDataLabels），因此我添加了第二个示例。感谢您的反馈 – 2014-09-06 22:39:58

Delphi Excel OLE图表数据标签问题

回答

相关问题