作成したグラフの補助線を消す等、グラフの微調整をしたい

選択した範囲のグラフを作成したいのですが、グラフの微調整方法がわかりません。
追加したいのは以下の事柄です。

補助目盛を消す
横軸のメモリをを20きざみ、最高を100にする
軸の色を黒にする
軸を内向きにする
軸を反転させる
データラベルを中央に追加する

VBA
1Sub 積み上げ横棒グラフ()
2ActSht = ActiveSheet.Name 'アクティブシート名取得
3ActCell = Selection.Address '選択範囲のアドレスを取得
4
5Charts.Add
6ActiveChart.ChartType = xlBarStacked
7'↓Sourceを変更
8ActiveChart.SetSourceData Source:=Sheets(ActSht).Range(ActCell), PlotBy:= _
9xlRows
10'↓Nameを変更
11ActiveChart.Location Where:=xlLocationAsObject, Name:=ActSht
12With ActiveChart
13.HasTitle = False
14.Axes(xlCategory, xlPrimary).HasTitle = False
15.Axes(xlValue, xlPrimary).HasTitle = False
16End With
17End Sub
18

上記のコードでこのようになりました

本当は以下のように調整したいです。

つたない説明で申し訳ありませんがよろしくお願いいたします。

行動規範の内容に同意します

回答1件

自己解決

自力でできました。

VBA
1Sub グラフ()  '集合横棒
2ActSht = ActiveSheet.Name 'アクティブシート名取得
3ActCell = Selection.Address '選択範囲のアドレスを取得
4
5Charts.Add
6ActiveChart.ChartType = xlBarClustered
7'↓Sourceを変更
8ActiveChart.SetSourceData Source:=Sheets(ActSht).Range(ActCell), PlotBy:= _
9xlRows
10'↓Nameを変更
11ActiveChart.Location Where:=xlLocationAsObject, Name:=ActSht
12With ActiveChart
13.HasTitle = False
14.Axes(xlCategory, xlPrimary).HasTitle = False
15.Axes(xlValue, xlPrimary).HasTitle = False
16'↓最大値を100にする
17.Axes(xlValue, xlPrimary).MaximumScale = 100
18.Axes(xlValue, xlPrimary).Format.Line.ForeColor.RGB = RGB(0, 0, 0) '縦軸
19.Axes(xlCategory).Format.Line.ForeColor.RGB = RGB(0, 0, 0) '縦軸
20.Axes(xlValue, xlPrimary).HasMajorGridlines = False  '補助線の削除
21.Axes(xlCategory).ReversePlotOrder = True   '軸の反転
22.Axes(xlCategory).MajorTickMark = xlInside   '縦軸を内向きにする
23.Axes(xlValue, xlPrimary).MajorTickMark = xlInside   '横軸を内向きにする
24End With
25End Sub