エクセルのグラフの不動化

質問

• エクセルでグラフを常に画面の決まった位置に表示させたい方法
• グラフは新しい方から左から右に並べて表示させる方法
• グラフを縦に、新しいグラフから上から下に並べて表示する方法

回答No.4

HohoPapa

グラフのタイトルの一覧を適当なセル範囲に縦方向に入力して起き
この順番にグラフを横方向に並べるということでよければ
こんなコードはいかがでしょうか。
Sampleなコードは、Ｂ列の20行目からタイトル一覧を並べた例です。

課題シートにグラフはあるが、この一覧に無いグラフは無視しています。

直観的には、視野から外れる場所に移動するのがよさそうですが
どうしたいかを明示すれば、マクロで対応することも可能と思います。

Sub Sample()

　Dim r As Long '行番号変数
　Dim c As Long '列番号変数
　Dim j As Long 'グラフカウンター
　Dim w As Long
　Dim d As Long

　r = 20　'グラフタイトル一覧開始行番号
　c = 2　' グラフタイトル一覧格納列番号
　w = 600
　d = 25

　Do

　　If Cells(r, c).Value = "" Then Exit Do

　　For j = 1 To ActiveSheet.ChartObjects.Count
　　　With ActiveSheet.ChartObjects(j)
　　　　If .Chart.ChartTitle.Text = Cells(r, c).Value Then
　　　　　.Top = ActiveWindow.VisibleRange.Top + d
　　　　　.Left = ActiveWindow.VisibleRange.Left + w
　　　　　w = w + .Width
　　　　End If
　　　End With
　　Next j
　　r = r + 1

　Loop

End Sub

補足

HohoPapaさん
毎度です。
今回も一発回答でした。
グラフタイトルはコード中で指定するように思っていましたがシート中に入力の方が汎用性高く使い勝手が良いですネ。

マクロをセルイベントにして横表示完成です。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

出来れば縦表示もお願いできませんでしょうか？
縦、横をどこで規定するのか想像つかず。

追記：特に困ることは無いのですが、グラフタイトルが数字の時は動かないようです。
最初は適当に数字を入れていたので全く反応せず。
HohoPapaさんのコードで「全く」は有り得ないと文字にしたら動きました。
タイトルが数字のグラフは消えることなく、置いてきぼりでこれもGood！！