Selectしたグラフまで画面を移動させたい

質問

ファイル内のグラフオブジェクトを検索して、そのグラフまで移動したいのですが
せっかくグラフを特定しても
セルと違ってSelectしても画面がそこまで移動せずに困っています

グラフのある位置のセルをセレクトすればよいのかとも思ったのですが
グラフの位置はTop/Left式で、これをRangeに返還するのもどうしてよいのかが思いつかずという状態です

画面をスクロールさせる
Activewindow.Scroll～というのもみつけたのですがこちらも画面単位やセル単位でしか移動できない様子

どなたか、どう対処すればよいのかわかる方がいらっしゃれば教えていただけると幸いです

エクセルは2007を利用しています

回答No.1

jcctaira · ベストアンサー

WatchGooさん
こんにちは。

ジャンプ命令でできるかと思います。
Application.Goto ActiveSheet.Shapes("グラフ 1").TopLeftCell, True

ただ、Selection オブジェクトで行う場合、単純いかないようです。
例えば次のようにすればできるかと思います。

Application.Goto _
　ActiveSheet.Shapes(Selection.Parent.Parent.ShapeRange.Name).TopLeftCell, True

お試しください。

お礼

しまったすみません、お陰で解決したのですがそのままになってしまっていました。

最初Gotoというのはエラー処理の時に使うものかと思いましたが
全く違うものと知って少しVBAに詳しくなった気がしました

遅くなってしまいましたがありがとうございました