2

我有一个项目，我必须将用户生成的数据标签放在图表中。这些需要像这样在一个系列线上：

![我想要的格式][1]

但是在某些情况下，文本会换行。如何防止文本在excel 10中换行？见下文

![在此处输入图像描述][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
4

2 回答 2

4

在 Excel 2013 中，可以更改数据标签的大小。在以前的版本中，标签无法调整大小。

在早期的 Excel 版本中，有时我会拉伸图表以使其更宽，但会将图表的绘图区域缩小到原始大小，因此图表两侧的空白区域更宽。这是因为标签的最大尺寸与图表宽度成正比。

其他时候，我将数据标签替换为可以灵活调整大小的文本框。

于 2013-10-13T19:32:44.083 回答
1

使用此代码：

ChartObj.chart.seriescollection(1).datalabels.Format.TextFrame2.WordWrap = msoFalse

而且，但不太有用：

ChartObj.chart.seriescollection(1).datalabels.Format.TextFrame2.AutoSize = msoAutoSizeNone
于 2017-06-30T23:47:38.337 回答