Question

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

！[我想要的格式] [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

Answer 1

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

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

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

Answer 2

使用此代码：

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

而且，但不太有用：

ChartObj.chart.seriescollection(1).datalabels.Format.TextFrame2.AutoSize = msoAutoSizeNone

保持图表数据标签不被包装

2 个答案: