如何使用Excel2007图表元素的Font.Underline属性

Question

我正在尝试编写一些VBA代码，以便在Excel 2007图表中将一个图表元素的字体样式复制到另一个图表中。具体来说，我试图将字体样式从ChartArea复制到ChartTitle。我对Font.Underline属性有问题。

无论ChartArea的下划线属性设置为什么(e.q。xlUnderlineStyleSingle)，则下划线属性返回一个不匹配任何XlUnderlineStyle常量(值为1745390344)的值。

这无疑与以下事实有关:用于设置图表元素字体的UI与用于在工作表上设置单元格字体的UI略有不同。

对于单元格，UI只显示两个下划线样式(单和双)加上“无”。这对应于XlUnderlineStyle枚举中的值。

对于图表元素，UI显示了大量的下划线样式，包括波浪线等。这些不在枚举中表示。

因此，我怀疑--对于图表元素--实际上可以设置另一个属性，而Font.Underline属性只是返回一个“在别处查看”的值。

有人能告诉我其他属性的名称是什么吗，以及我是否可以通过VBA访问它？

编辑这里有一些代码可以直接输入到即时窗口以查看问题(首先选择一个图表)：

？ActiveChart.ChartArea.Font.Underline

Answer 1

ChartArea.Format.Textframe2.TextRange.Font.Underlinestyle属性中使用msoTextUnderlineType枚举。