如何編寫vba以刪除電子表格中所有圖表的所有x標籤？

Question

我在一個選項卡中有7個堆積的柱狀圖。我想寫一個vba來刪除所有圖表左側的所有垂直標籤。我認爲這會很簡單，但事實並非如此！

Answer 1

所以你想「刪除所有x標籤」或「刪除左側的所有垂直標籤」？這看起來好像你首先指的是水平x軸，然後指向垂直y軸 - 混淆。如果您使用Excel術語 - 垂直或水平軸，則可以提供幫助。並刪除軸，軸標題或軸刻度標籤？

這一邊......你可以通過所有圖表對象在工作表中這樣的循環：

Sub loopCharts() 

Dim i As Integer 

For i = 1 to ActiveSheet.ChartObjects.Count 

    'do some stuff with the chart 

Next i 

End Sub 

例如，如果你想刪除垂直軸：

Sub delVertAxisAllCharts() 

Dim i As Integer 

For i = 1 to ActiveSheet.ChartObjects.Count 

    ActiveSheet.ChartObjects(i).Chart.Axes(xlValue).Delete 

Next i 

End Sub 

如果您只是想刪除水平刻度標籤：

Sub remHorizTickLabels() 

Dim i As Integer 

For i = 1 to ActiveSheet.ChartObjects.Count 

    ActiveSheet.ChartObjects(i).Chart.Axes(xlCategory).TickLabelPosition = xlNone 

Next i 

End Sub 

希望可以幫助...