Home > Excel VBA | GraphControl > Excel グラフの目盛り線を消す(Delete Gridlines of chart. xlValue xlCategory)

Excel グラフの目盛り線を消す(Delete Gridlines of chart. xlValue xlCategory)

Posted by: WebMaster
2008年4月26日 07:58
Excel VBA | GraphControl

エクセルグラフの目盛り線を消すマクロです。

delete gridlines of xlValue & xlCategory of Excel chart.

目盛り線を消すソースコードです。プロシージャの冒頭ににIf ActiveSheet.ChartObjects.Count = 0 Then Exit Subと書いているのは、エラーを防ぐためにグラフが存在しなかったらイグジットするためのものです。

This sample source code delete gridlines of selected chart.

Sub GridLines()
''-------------------------------------------------------------------
''------------X軸（数値軸）を消す---------------------
''------------Delete xlCategory gridlines--------------------
''--------------------------------------------------------------
If ActiveSheet.ChartObjects.Count = 0 Then Exit Sub
Application.ScreenUpdating = False

Sheets(1).Activate
  ActiveSheet.ChartObjects(1).Activate

ActiveChart.Axes(xlCategory).MajorGridlines.Delete

Application.ScreenUpdating = True
End Sub
''-------------------------------------------------------------------
''------------Y軸（数値軸）を消す---------------------
''------------Delete xlValue gridlines--------------------
''--------------------------------------------------------------
Sub GridLines()
If ActiveSheet.ChartObjects.Count = 0 Then Exit Sub
Application.ScreenUpdating = False

Sheets(1).Activate
  ActiveSheet.ChartObjects(1).Activate

ActiveChart.Axes(xlValue).MajorGridlines.Delete

Application.ScreenUpdating = True
End Sub

GraphControl で使用しているソースコードです。

This source code is used in GraphControl.

Comments:0

Amazon.co.jp ウィジェット

Home > Excel VBA | GraphControl > Excel グラフの目盛り線を消す(Delete Gridlines of chart. xlValue xlCategory)

Return to page top