保持图表数据标签不被包裹
我有一个项目，我必须将用户生成的数据标签放在图表中。 这些需要在一系列的线上：
！[我想要的格式] [1]
但是，在某些情况下，文本包装。 我如何保持文本在Excel 10中打包？ 见下文
！[在这里input图片描述] [2]
'——–格式数据标签————————————-
ActiveSheet.ChartObjects("OperBal2Takt").Activate h = 0 For h = 2 To 7 With ActiveChart.SeriesCollection(h).Points(1) .HasDataLabel = True .DataLabel.Text = Cells(2018 + h, 8).Value '.DataLabel.Width = msofit End With Next h 在Excel 2013中，数据标签的大小可以更改。 在以前的版本中，标签不能resize。
在早期的Excel版本中，有时候我已经拉伸了图表使其更宽，但是缩小了图表的绘图区域到原始大小，所以图表两边的空白区域更宽。 这是有效的，因为标签的最大尺寸与图表宽度成正比。
其他时候，我用文本框replace了数据标签，可以灵活resize。
使用这个代码：
ChartObj.chart.seriescollection(1).datalabels.Format.TextFrame2.WordWrap = msoFalse
还有，但不太有用：
ChartObj.chart.seriescollection(1).datalabels.Format.TextFrame2.AutoSize = msoAutoSizeNone