ActiveSheet.ChartObjects("graph").Activate ActiveChart.FullSeriesCollection(1).Select 'マーカーを消す(.MarkerStyle = -4142も同じ) With Selection .MarkerStyle = xlNone End With 'マーカーの型とサイズを指定 With Selection .MarkerStyle = 8 .MarkerSize = 5 End With 'マーカーの色を指定(BackgroundColor:塗りつぶし、ForegroundColor:枠線) With Selection .MarkerBackgroundColor = RGB(255, 0, 0) .MarkerForegroundColor = RGB(255, 0, 0) End With 'ラインの色と太さと型を指定 With Selection.Format.Line .Visible = msoTrue .ForeColor.RGB = RGB(255, 0, 0) .Weight = 2.25 .DashStyle = msoLineSolid End With
追記
ぜひこちらも見てください。
touch-sp.hatenablog.com