EXCEL VBA:埋め込みグラフオブジェクトの命名方法について
質問させて頂きます。
EXCEL2000のVBAで、グラフを色々加工しているのですが、
埋め込みグラフオブジェクトの名前をグラフ作成時に命名する事は
可能でしょうか?
dim myRange as Range
Set myRange = Range("A1:D2")
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=myRange, PlotBy:=xlRows
ActiveChart.Location where:=xlLocationAsObject, Name:="sheet1"
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabelAndPercent, LegendKey:=False, HasLeaderLines:=True
とここで、(グラフそのもののサイズではなく)
埋め込みグラフオブジェクトのサイズを変更するとき、
ActiveSheet.Shapes(1).ScaleWidth 1.6, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes(1).ScaleHeight 1.9, msoFalse, msoScaleFromTopLeft
のようにすれば、最初に作成したオブジェクトのサイズ変更は可能ではあるのですが、
条件により色々な種類の複数のグラフを順不同で作成しているため、
ActiveSheet.Shapes(1)
では、希望のオブジェクトを選択できるとは限りません。
つきましては、Charts.Add 時に(グラフの名前ではなく)
オブジェクトの名前を指定できれば希望のオブジェクトを
簡単に選択できると考えているのですが、これは可能でしょうか?
何卒ご教授のほど、よろしくお願いいたします。
お礼
ありがとうございました。 うまくいきました。 今後とも宜しく御願いします。