2015-04-02 83 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