excel - 格式化 y 轴标签的宽度

Question

我正在开发一个 VBA Excel 脚本，该脚本使用数据透视表创建一堆图表并将它们复制到 Word 文档中，从而创建报告。图表成对出现，粘贴后，y 轴之间有一点“距离”。如果他们被延长，我希望他们做一个单行。

我正在使用该TickLables.Offset物业。它在两个图表中设置为相同的值，但这并不能解决问题。

欢迎任何建议。

编辑：

问题截图：

代码：

ActiveChart.Axes(xlValue).Select
Selection.TickLabels.AutoScaleFont = True
With Selection.TickLabels.Font
    .Name = "Arial"
    .FontStyle = "Normal"
    .Size = 10
    .Strikethrough = False
    .Superscript = False
    .Subscript = False
    .OutlineFont = False
    .Shadow = False
    .Underline = xlUnderlineStyleNone
    .ColorIndex = xlAutomatic
    .Background = xlAutomatic
End With
With Selection.TickLabels
    .Offset = 500
End With

Answer 1

由于Offset是国际百分比，.Axes(xlValue).TickLabels.Offset因此很难确定。为了对齐事情，在我的情况下，在一个图表中，我得到了完美的结果：

.Legend.Left = .PlotArea.Left + .PlotArea.Width - .PlotArea.InsideWidth

.Legend.Width = .PlotArea.InsideWidth

换句话说，当您仅在左侧（或右侧）有 TickLables 时，Ticklables 的宽度是内部宽度和外部宽度之间的差异。