埋め込みグラフを作る その2(グラフ名の取得/設定)

いつも非常に悩むのはこれで，グラフ名を取得もしくは名前をつけられれば…ということが良くあります(複数の埋め込みグラフを作ったときなんかは特にね)．そんなときにはこれが良く効きます．

【事例1(Indexを取得)】
Sub graph_make()

With ActiveSheet.ChartObjects.Add(50, 100, 300, 200).Chart
.SetSourceData Sheets("sheet1").Range("A3:D6")
End With

comp = ActiveSheet.ChartObjects.ShapeRange.Name
MsgBox comp

End Sub

【解説1】
上記のようにすると作った埋め込みグラフのIndex名を取得することができます．これで再度グラフをいろいろデコレーションしたい場合にも使いまわししやすいので良いです．完璧．

【事例2(グラフ名を設定して取得する)】
Sub graph_make()

With ActiveSheet.ChartObjects.Add(50, 100, 300, 200).Chart
.SetSourceData Sheets("sheet1").Range("A3:D6")
End With

ActiveSheet.ChartObjects.ShapeRange.Name = "test"

With ActiveSheet.ChartObjects("test").Chart
.ChartType = xlLineMarkers
End With

End Sub

【解説2】
上記のようにするとグラフ名を"test"として設定できますのでこれもまた，いろいろと使いまわすのに非常に便利となります(ちなみに上記の例題では，グラフ名を取得してそれを用いて棒グラフから折れ線グラフに変更しています)．ぜひぜひお試しを。。。