格式化y轴标签的宽度

我正在处理一个VBA Excel脚本，它使用数据透视表来创build一堆图表并将它们复制到Word文档中，从而创build一个报表。 这些图表是成对的，粘贴之后，y轴之间会有一点点“距离”。 如果他们被延长，我希望让他们做一个单一的行。

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

任何build议，欢迎。

编辑：

问题的屏幕截图：

码：

 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