excel2010。職場のエクセルは新しくて別の書き方だった。とりあえず。

こういうグラフがたくさんあったとして

一気にこの書式にする

なお、グラフスタイルの適用などしてるとうまくいかない。よくわかっていないｗ
オレンジとしているのはテーマのカラーに依存するのでオレンジじゃないかもしれない(；´Д｀)

Option Explicit
Sub setGraphs()
Dim marus As ChartObjects: Set marus = ActiveSheet.ChartObjects
Dim maru As ChartObject
Dim c, r
For Each maru In marus
maru.Select
With ActiveChart
 'グラフ全体をオレンジに
.SeriesCollection(1).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent6
.Solid
End With
 'グラフの線もオレンジに
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent6
End With
 '残り部分を透明に
.SeriesCollection(1).Points(2).Format.Fill.Visible = msoFalse
 'タイトル設定
.SetElement (msoElementChartTitleAboveChart)
c = .Parent.TopLeftCell.Column
r = .Parent.TopLeftCell.Row
.ChartTitle.Text = Cells(r, c - 4)
.ChartTitle.Format.TextFrame2.TextRange.Font.Size = 8
 'サイズ設定
ActiveSheet.Shapes(maru.Name).Height = Application.CentimetersToPoints(2.86)
ActiveSheet.Shapes(maru.Name).Width = Application.CentimetersToPoints(3.81)
 '背景透明
ActiveSheet.Shapes(maru.Name).Fill.Visible = msoFalse
End With
Next
End Sub