Excel VBAでグラフを固定表示！初心者でも簡単に実装できる方法

1. Public Sub graph_view()
   • Public Subはマクロ（Subプロシージャ）の開始を示します。
     他のマクロからも呼び出し可能な公開（Public）のマクロです。
2. Application.ScreenUpdating = False
   • スクリーン更新を一時停止します。
     このコードは、コードの実行中に画面が頻繁に再描画されるのを防ぐことで、処理速度を向上させます。
     実行後、画面が一時的に動かないのはこの設定のためです。
     
3. Dim mail As Object
   • 「CPos」という名前の変数を宣言します。
     型はDouble（小数点を含む数値型）です。
     この変数は、スクロール位置に基づくグラフの表示位置（座標）を計算するために使用されます。
4. CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
   • 「ScrollRow」：現在のウィンドウで表示されている最上部の行番号を取得します。
     「RowHeight」：1行の高さを取得します。
     これらを掛け合わせることで、現在のスクロール位置に基づいた「表示すべき縦位置（ピクセル単位）」を計算します。
5. Dim chtObj As ChartObject
   • 「chtObj」という変数を宣言します。
     型はChartObject（グラフオブジェクト型）です。
     Excelのシート上に配置されているグラフを操作するために使います。
6. Dim nextTop As Double
   • 「nextTop」という名前の変数を宣言します。
     型はDoubleです。グラフを配置する「次の位置」を計算・記録するための変数です。
7. nextTop = CPos
   • 最初のグラフを配置する位置を、計算済みの「CPos（スクロール位置）」に設定します。
8. Dim i As Long
   • 変数「i」という名前の変数を宣言します。
     型はLong（長整数型）です。
     グラフの繰り返し処理で使用するカウンターとして利用します。
9. For i = 1 To ActiveSheet.ChartObjects.Count
   • Forループの開始を示します。
     「ActiveSheet.ChartObjects.Count」は、アクティブなシート上の全てのグラフオブジェクトの数を取得します。
     1からその数まで繰り返し処理を行います。
10. Set chtObj = ActiveSheet.ChartObjects(i)
    • シート上の「i番目」のグラフオブジェクトを取得し、変数「chtObj」に設定します。
      「Set」を使うのは、グラフがオブジェクト型であるためです。
11. chtObj.Top = nextTop
    • 現在のグラフ（chtObj）のTop（縦位置）プロパティを「nextTop」の値に設定します。
      これにより、グラフの配置が更新されます。
12. nextTop = nextTop + chtObj.Height + 10
    • 「nextTop」の値を更新します。
      現在のグラフの高さ（Height）と、10ピクセルのマージンを足して、次のグラフの配置位置を計算します。
13. If chtObj.Name = “グラフ 1” Then
    • If条件を使い、現在のグラフが「名前がグラフ 1であるか」を確認します。
      「chtObj.Name」はグラフの名前（識別子）を取得します。
14. chtObj.Top = CPos
    • 条件が「True（グラフ 1である）」の場合、グラフの縦位置（Top）をスクロール位置（CPos）に固定します。
      「グラフ 1」を常に画面内に表示させる動作です。
15. nextTop = CPos + chtObj.Height + 10
    • 「nextTop」を再計算します。
      「グラフ 1」の下に、次のグラフを配置する位置を設定します。
16. End If
    • If条件の終了を示します。
      これ以降の処理は条件に関係なく実行されます。
17. Next i
    • Forループの次の繰り返しに進みます。
      次のグラフを取得して同じ処理を行います。
18. Application.ScreenUpdating = True
    • スクリーン更新を再開します。
      処理中に停止していた画面の描画がここで再開され、すべての変更が反映されます。
19. End Sub
    • マクロの終了を示します。

■ワークシートモジュールの「Worksheet_SelectionChange(ByVal Target As Range)」を解説

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   • 「Worksheet_SelectionChange」は、セルが選択されるたびに自動で実行されるイベントです。
     「Private」で始まるのは、このプロシージャがそのワークシート専用であり、外部から呼び出せないことを示します。
     「Target」は、選択されたセル範囲を示すパラメータです。
     このイベントを活用することで、セル選択に連動した操作を自動化できます。
2. Call graph_view
   • 「Call」は、指定したプロシージャ（マクロ）を実行するための命令です。
     この場合、標準モジュール内に記載された「graph_view」プロシージャを実行します。
     標準モジュールに記載したプロシージャを呼び出すことで、メンテナンス性が向上します。
     「Call」は省略可能で、「graph_view」と記述するだけでも同じ動作になります。
     ただし、明示的に「Call」を記載すると、コードの意図がより明確になります。
3. End Sub
   • マクロの終了を示します。
     これ以降のコードはイベントの範囲外となり、実行されません。

■標準モジュールの「Public Sub graph_view()」を解説

1. Public Sub graph_view()
   • Public Subはマクロ（Subプロシージャ）の開始を示します。
     他のマクロからも呼び出し可能な公開（Public）のマクロです。
2. Application.ScreenUpdating = False
   • スクリーン更新を一時停止します。
     このコードは、コードの実行中に画面が頻繁に再描画されるのを防ぐことで、処理速度を向上させます。
     実行後、画面が一時的に動かないのはこの設定のためです。
     
3. Dim mail As Object
   • 「CPos」という名前の変数を宣言します。
     型はDouble（小数点を含む数値型）です。
     この変数は、スクロール位置に基づくグラフの表示位置（座標）を計算するために使用されます。
4. CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
   • 「ScrollRow」：現在のウィンドウで表示されている最上部の行番号を取得します。
     「RowHeight」：1行の高さを取得します。
     これらを掛け合わせることで、現在のスクロール位置に基づいた「表示すべき縦位置（ピクセル単位）」を計算します。
5. Dim chtObj As ChartObject
   • 「chtObj」という変数を宣言します。
     型はChartObject（グラフオブジェクト型）です。
     Excelのシート上に配置されているグラフを操作するために使います。
6. Dim nextTop As Double
   • 「nextTop」という名前の変数を宣言します。
     型はDoubleです。グラフを配置する「次の位置」を計算・記録するための変数です。
7. nextTop = CPos
   • 最初のグラフを配置する位置を、計算済みの「CPos（スクロール位置）」に設定します。
8. Dim i As Long
   • 変数「i」という名前の変数を宣言します。
     型はLong（長整数型）です。
     グラフの繰り返し処理で使用するカウンターとして利用します。
9. For i = 1 To ActiveSheet.ChartObjects.Count
   • Forループの開始を示します。
     「ActiveSheet.ChartObjects.Count」は、アクティブなシート上の全てのグラフオブジェクトの数を取得します。
     1からその数まで繰り返し処理を行います。
10. Set chtObj = ActiveSheet.ChartObjects(i)
    • シート上の「i番目」のグラフオブジェクトを取得し、変数「chtObj」に設定します。
      「Set」を使うのは、グラフがオブジェクト型であるためです。
11. chtObj.Top = nextTop
    • 現在のグラフ（chtObj）のTop（縦位置）プロパティを「nextTop」の値に設定します。
      これにより、グラフの配置が更新されます。
12. nextTop = nextTop + chtObj.Height + 10
    • 「nextTop」の値を更新します。
      現在のグラフの高さ（Height）と、10ピクセルのマージンを足して、次のグラフの配置位置を計算します。
13. If chtObj.Name = “グラフ 1” Then
    • If条件を使い、現在のグラフが「名前がグラフ 1であるか」を確認します。
      「chtObj.Name」はグラフの名前（識別子）を取得します。
14. chtObj.Top = CPos
    • 条件が「True（グラフ 1である）」の場合、グラフの縦位置（Top）をスクロール位置（CPos）に固定します。
      「グラフ 1」を常に画面内に表示させる動作です。
15. nextTop = CPos + chtObj.Height + 10
    • 「nextTop」を再計算します。
      「グラフ 1」の下に、次のグラフを配置する位置を設定します。
16. End If
    • If条件の終了を示します。
      これ以降の処理は条件に関係なく実行されます。
17. Next i
    • Forループの次の繰り返しに進みます。
      次のグラフを取得して同じ処理を行います。
18. Application.ScreenUpdating = True
    • スクリーン更新を再開します。
      処理中に停止していた画面の描画がここで再開され、すべての変更が反映されます。
19. End Sub
    • マクロの終了を示します。