Ｅｘｃｅｌのグラフをshapeオブジェクトと指定すること

質問

こんばんは，助けてください。

Excelで大量にグラフを作成しています。
この時，グラフはグラフシートではなく，ワークシート上にオブジェクトとして貼り付けています。

このようにすると，Shapes(index)のようにして，indexのところにグラフの名前を入れて，Shapeオブジェクトを取得すると，グラフの位置や拡大縮小ができるようになりますよね。

これは，便利と思って，大量のグラフを整形して整列させようと思っています。グラフを作った順番がめちゃくちゃだったり，その他いろいろな事情で，インデックス番号を指定するのではなくて，名前を指定してやりたいと思います。

そこで，
Activechart.Name = "問１－(1)"
の様に指定してみたのですが，

Activesheets.shapes("問１－(1)").・・・
のように指定して，縮小や移動をしようとしても，うまくいきませんでした。

このような場合に，グラフに名前を付けるにはどうしたらよいのでしょうか。教えてください。

また，ついでで申し訳ないのですが，グラフを移動させる位置を，相対的に指定するのではなくて，絶対的な位置に指定する方法はないものでしょうか？こちらも，もしよかったら教えてください。

ちなみに，Excelは2003です。よろしくお願いします。

回答No.1

taocat · ベストアンサー

面白そうなのでちょっと試してみました結果、
名前の付け方に問題があるみたいで、
ハイフン、カッコを外し、"問１の１"　とかにすると
上手くいくみたいです。

'試しに簡単なグラフを3つ作り下記のコードを実行してみてください。

Sub Test()
Dim Gf As Shape
Dim N As Integer
For Each Gf In ActiveSheet.Shapes
N = N + 1
Gf.Name = "問１の" & N
Next Gf
End Sub

グラフの移動等の位置大きさ等に関することですが
セルのTop,Leftを利用したらどうでしょうか。

グラフ（問１の３）を　Ｂ５の左上隅へ移動する場合

Sub Test5()
Dim N As Integer
N = 3
With ActiveSheet.Shapes("問１の" & N)
.Top = Range("B5").Top
.Left = Range("B5").Left
End With
End Sub

セルのTop , Leftを利用した方が移動も
大きさの設定（セルの20個分の大きさにするとか）も
簡単ですし汎用性があると思います。
以上です。