如何设置＆＃39;允许文字溢出形状＆＃39;对于Excel VBA中的图表数据标签是真的吗？

Question

我创建了一个宏来将图表复制到新工作簿，从而取消链接数据透视表数据源。然后它设置新的数据源，并将一些格式应用于数据标签，因此新图表具有与旧图表相同的外观。

这是设置数据标签格式的代码部分：

' Select the Data Labels
ActiveChart.ChartArea.Select
ActiveChart.FullSeriesCollection(1).DataLabels.Select

' Apply fancy formatting to the Data Labels
With Selection
    .ShowCategoryName = True
    .ShowValue = True
    .ShowLegendKey = -1
    .Separator = " - "
    .Position = xlLabelPositionBestFit

    With .Font
        .Bold = False
        .Color = RGB(89, 89, 89)
    End With

    With .Format
        .Fill.ForeColor.RGB = RGB(255, 255, 255)
        .TextFrame2.WordWrap = msoFalse
        '.TextFrame.HorizontalOverflow = xlOartHorizontalOverflowOverflow
        .AutoShapeType = msoShapeRoundedRectangle

        With .Line
            .Visible = True
            .Weight = 0.75
            .DashStyle = msoLineSolid
            .ForeColor.RGB = RGB(191, 191, 191)
        End With
    End With
End With

但是，当我取消注释设置水平溢出的行时，我收到此错误：

  

运行时错误＆＃39;＆＃39;＆＃39;

：

     

Object不支持此属性或方法

如何将下面红色圆圈显示的溢出属性设置为true？

如您所见，它已成功将Wrap text in shape更改为false（位于底部）：

我知道，当它完成我的代码运行时，我不难去勾选方框，但它是生成~100个图表的更大脚本的一部分。在生成每个图表后，我真的很想让它在没有我干预的情况下从头到尾运行。