2015-04-02 86 views
0

表= XY散点图后如何定位低于x轴线x轴标签倒车为了

我对我所设定的水平轴交叉轴值= 200图表,该图表看起来如下:

enter image description here

现在,我想扭转y轴的标签的顺序。但是,当我检查“以相反的顺序值”的x轴标签跳x轴线之上,如下所示:

enter image description here

我想的x轴标签是波纹管x轴线。我一直在尝试各种VBA代码和各种excel选项。如:

.TickLabels.Offset(这抵消了X轴标签在x轴更远,将不接受负数)

我想大MarginTop值添加到X轴标签,但我无法弄清楚VBA代码,并且该选项在Excel中呈灰色。

任何可能的想法或解决方案将非常感激。

+0

打开宏录像机。通过Excel菜单进行。停止录制并查看代码。你可能想要重构去除'Active *'和所有'.select',但它会告诉你要设置的属性。 – FreeMan 2015-04-02 15:59:25

+0

我无法录制宏,因为我无法获取x轴标签在x轴线下方。 – Hubvill 2015-04-02 16:10:16

回答

1

如果您可以将X轴置于图表底部,您可以通过将TickLabelPosition更改为等于xlTickLabelPositionHigh将标签重新置于轴“下方”。如果您还在“最大轴值”处穿过y轴,看起来会更好。这将轴格式置于底部(真正的最大值)与标签。

您可以从普通菜单中获取所有这些设置。如果您需要VBA来做到这一点,这里是一个起点:

Sub reverseAxisAndLabelAtBottom() 

    Dim cht As Chart 
    Dim x_axis As Axis 
    Dim y_axis As Axis 

    'using the ActiveChart... assumes it is selected 

    Set cht = ActiveChart 
    Set x_axis = cht.Axes(xlCategory) 
    Set y_axis = cht.Axes(xlValue) 

    y_axis.ReversePlotOrder = True 
    x_axis.TickLabelPosition = xlTickLabelPositionHigh 
    y_axis.Crosses = xlAxisCrossesMaximum 


End Sub 

我也试图通过增加一个虚设序列,并把反转Y轴的二次轴做到这一点。这样就可以得到正确的标签,但是y轴被强制转移到最右边。我不会称之为“理想”的做法。

带有一些随机数据的照片之前/之后。 before after

+0

这非常接近,但在后面的图表中是否可以移动x轴,使其跨越例如y轴的0.1?并有'x_axis.TickLabelPosition = xlTickLabelPositionNextToAxis'。 x轴标签是否在x轴线之下? – Hubvill 2015-04-02 16:29:14

+0

我无法做到这一点。我认为将标签设置为“高”会迫使他们进入底部。会发生什么是“轴”移动,这是只有一个粗线,因为标签被迫在其他地方。 – 2015-04-02 16:37:02