Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ：ＶＢＡでグラフのマーカーを一つだけ変える方法

Ｏｆｆｉｃｅ３６５は、表計算ソフト、ワープロソフト、プレゼンテーションソフト、データベースソフト等が
入っているオフィスソフトです。これをインストールして置けば、家庭や仕事で多くの事が出来る様になります。

しかし、ＥｘｃｅｌＶＢＡでグラフのマーカーを一つだけ変える方法が分かりませんでした。
使用したパソコンは、下記のソフトを使用していました。

ＯＳ　　　　　　　：　Ｗｉｎｄｏｗｓ１０（６４ｂｉｔ）バージョン21H2（ＯＳビルド 19044.2468）
オフィスソフト　　：　Ｅｘｃｅｌ　ｆｏｒ　Ｍｉｃｒｏｓｏｆｔ　３６５　ＭＳＯ（16.0.16026.20002）
　　　　　　　　　　　６４ｂｉｔ

以下、Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ：ＶＢＡでグラフのマーカーを一つだけ変える方法を記載して行きます。

（項目１）
　・ＥｘｃｅｌＶＢＡでグラフのマーカーを一つだけ変える方法が分かりませんでした。
　・下のグラフで、エクセル将棋館６月のマーカーを変えたいです。（この場合は色を青→赤に変更）
　　

（項目２）
　・マーカーを手動で変更するのは、Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ：グラフのマーカーを一つだけ変える方法
　　が有ります。
　・しかし、上記の方法で取得した下記のＶＢＡコードは、正常に作動しませんでした。

　　Sub Macro1()
　　'
　　' 赤に変更：　記録したMacro（ＶＢＡでは動かない）
　　'
　　
　　'
　　　　ActiveSheet.ChartObjects("グラフ 7").Activate
　　　　ActiveChart.FullSeriesCollection(1).Select
　　　　ActiveChart.FullSeriesCollection(1).Points(6).Select
　　
　　　　With Selection.Format.Fill
　　　　　　.Visible = msoTrue
　　　　　　.ForeColor.RGB = RGB(255, 0, 0) '赤
　　　　　　.Transparency = 0
　　　　　　.Solid
　　　　End With

　　　　Range("K12").Select

　　End Sub

（項目３）
　・インターネットで色々と調べて見ると、「【ExcelVBA】グラフのマーカーの枠線と塗りつぶしの色を変更す　　る方法」が見つかりました。
　．上記によると、「MarkerBackgroundColorを使用すれば良い」との事でした。

（項目４）
　・下記のＶＢＡコードに変更して見ました。
　　
　　Sub Macro3()
　　'
　　' 赤に変更：　改良したMacro（ＶＢＡで動く）
　　'
　　
　　'
　　　　ActiveSheet.ChartObjects("グラフ 7").Activate
　　　　ActiveChart.FullSeriesCollection(1).Select
　　　　ActiveChart.FullSeriesCollection(1).Points(6).Select
　　
　　　　With Selection
　　　　　　.MarkerBackgroundColor = RGB(255, 0, 0) ' 赤
　　　　End With

　　　　Range("K12").Select

　　End Sub

（項目５）
　・上記のＶＢＡコードで、グラフのマーカーを一つだけ変える事が出来ました。
　　

（項目６）
　・以上で、Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ：ＶＢＡでグラフのマーカーを一つだけ変える方法は終了です。