|
Jaka さん、レスありがとうございます。
おっしゃるとおり、cnameには「Sheet1 グラフ 1」という形の値が入っています。
あるサイトで下記のような記述方法を見つけ、貼り付けて実行してみたら、
Dim cnam As String
cnam = ActiveSheet.ChartObjects.Name
ActiveSheet.DrawingObjects(cnam).Select
ActiveSheet.ChartObjects(cnam).Activate
「オブジェクトはこのプロパティまたはメソッドをサポートしていません。」というエラーがでました。そこで、1行目を
cnam = ActiveChart.Name
に書き換えて実行しましたら、「指定した名前のアイテムが見つかりませんでした。」というエラーが出てしまったのです。
「グラフ 1」の部分だけを取り出さなければいけないのですね。
mid関数などで取り出すのでしょうか?あるいは、
cnam = ActiveSheet.ChartObjects.Name
の部分を応用すればできるのでしょうか?
ご指導よろしくお願いいたします。
|
|