2020/09/15

グラフのＸ軸をスクロールバーで移動

• １．背景
• ２．概要
• ３．プログラムの流れ
• ４．標準モジュール
• 　４－１．宣言部
• 　４－２．メインプログラム
• 　４－３．グラフ軸の設定
• 　４－４．グラフ軸のセル範囲計算
• 　４－５．グラフ種類の変更
• 　４－６．グラフの削除・ダイアログ終了
• ５．フォーム外観作成
• ６．フォームモジュール
• 　６－１．フォームモジュールレベルの変数宣言
• 　６－２．フォームの起動
• 　６－３．ScrollBar２の設定
• 　６－４．ScrollBar１の設定
• 　６－５．ScrollBar１の変更イベント
• 　６－６．ScrollBar２の変更イベント
• 　６－７．ボタンクリックによるイベント
• 　６－８．グラフ・ダイアログ内ラベルの再表示
• ７．最後に

１．背景

データの分析は、データを目に見えるようにグラフ化するところから始まります。Excelはデータ分析をするには非常に便利なアプリです。ワークシートは100万行以上あり、色々なデータを１つのシート上に置くことが出来ます。
しかし一方で古いバージョンではグラフ要素数に制限があったり、またPCの性能で表示できる要素数に限界が出てきてしまい、「全データを遠目に眺める」ことが出来ない場合があります。

そこで今回はグラフのＸ軸をスライド可能にし、軸を移動させながら全体を見る事のできるアプリを紹介します。
またＸ軸のデータ数も可変にしましたので、部分的に拡大させてデータを見ることも出来ます。

２．概要

グラフ化に使うデータは、図２－１のように縦方向に並んでいるものとします。データ（今回は２行目以降）の直前行（今回は１行目）にはタイトル行（空白行でも可）が存在する事が前提です。（データが１行目から始まっているとエラーとなります。）
尚サンプルファイルでは、ある会社の株式変動をデータとしました。
また今回アプリは、シート上のボタンで起動するようにしていますが、実際にはアドイン等でExcelに組み込むことが必要です。

図２－１

アプリ起動後、まずＸ軸を決めるために、図２－２のように「Ｘ軸の先頭セル」を指定します。

図２－２

次に図２－３のように「Ｙ軸の列」を指定します。Ａ・Ｂ・Ｃ等の列番号をクリックします。複数列を指定する場合、隣接列の場合はクリックしたまま横に移動させ、また離れた列の場合は「Ctrlキーを押しながら」必要な列を選択して下さい。

図２－３

Ｘ軸Ｙ軸の指定が完了すると図２－４のように新グラフシートが挿入され、折れ線付き散布図が表示されます。
また、グラフを操作するためのダイアログが表示されます。

図２－４

初期状態のグラフは「データ先頭から５０データ数（データ数が50未満の時は、データの最後まで）」でのグラフになっています。
操作ダイアログで調整することにより、図２－５のように4000データ（今回は4000を上限にしています）までのグラフ表示が可能です。

図２－５

操作ダイアログでは図２－６のように、「グラフとして表示されているデータの位置（上側のスクロールバー）」と「グラフのデータ数（下側のスクロールバー）」が調整できます。
また、「データの内、どの位置のデータを表示しているか」「表示しているデータ数は何個か」をラベルとして表示しています。
なおデータの位置は「データ先頭行を１とする相対的行位置」で、Excelの絶対的な行番号ではありません。

図２－６

３．プログラムの流れ

図３－１のように、ユーザーに「Ｘ軸の先頭セル」と「Ｙ軸の列」を指定してもらうことで、グラフのデータ範囲（グラフに使用する列、データの行数）を得ます。初回は新規にグラフシートを作成し、そのシートに対して初期のデータ範囲を指定しグラフを完成させます。
操作ダイアログ内のスクロールバーをユーザーが操作すると「データの位置」「データ数」が変更されますので、その変更値を使ってグラフに使用するデータセル範囲を再度計算をし、グラフのデータセル範囲を入れ替えます。

図３－１

図３－１には書き込まれていないプログラムとして「スクロールバーの設定」があります。
詳細は６－３項、６－４項で説明しますが、２つのスクロールバーの内「データ数」のスクロールバー（ScrollBar2）は、全データ数のみでMax値・LargeChange値などの設定値が独立して決まりますので、初期に設定すれば完了です。
しかし「データの位置」のスクロールバー（ScrollBar1）の設定値には「グラフの表示データ数」が影響して来ますので、「データ数のスクロールバー」の値を変更した時は「データの位置のスクロールバー」の設定値を変更しています。

４．標準モジュール

４－１．宣言部

標準モジュールの宣言部では図４－１のように、プロジェクト内で使用する定数５つ、及び標準モジュール内で使用する変数３つを宣言しています。
なお同様のアプリである「複数系列のデータを連続的にグラフ化」の時は、変数「myChart」をPublic変数にしてフォームモジュール側でも使用したのですが、今回は変数「myChart」を使うプロシージャは全て標準モジュール側で実行させるように工夫しました。

1. '==========　⇩①　宣言部　====================
2. Public Const sChange As Long = 1　　　　　　 'ScrollBarのSmallChangeの値
3. Public Const minWidth As Long = 50　　　　　 'ScrollBar2のMin値(データ数が多い時)
4. Public Const maxWidth As Long = 4000　　　　 'ScrollBar2のMax値(データ数が多い時)
5. Public Const StartRow As Long = 0　　　　　 '初期グラフは先頭行からグラフ化
6. Public Const OverLap As Single = 0.2　　　 'グラフX軸のシフト量（全体の何%がズレるか）
7. Dim myChart As Object　　　　　　　　　　　　 '作成したグラフオブジェクト
8. Dim Xstart As Range　　　　　　　　　　　　　 'X軸列の先頭セル
9. Dim Ycol As Range　　　　　　　　　　　　　　 'Y軸の列群

図４－１

２～６行目は、ダイアログ上のスクロールバーの設定値です。本来はフォームモジュール側で宣言すれば良い定数ですが、どうしても一部の定数を標準モジュール側で使わなければならず、まとめて全ての定数を標準モジュール側でPublic宣言することにしました。
スクロールバーは２つあり、ScrollBar1はＸ軸の位置決め用、ScrollBar2はＸ軸のデータ数設定用です。スクロールバーの設定は、ScrollBar1Configプロシージャ（図６－８）、ScrollBar2Configプロシージャ（図６－３）で行いますが、２～６行目の定数をどちらのスクロールバー設定で使用するかを図４－２にまとめました。
なお、５行目の定数StartRowは初回グラフ作成のために図４－３の２７行目で使用しています。

スクロールバー定数の使用先一覧

プロパティ	Ｘ軸の位置決め用(ScrollBar1)	Ｘ軸のデータ数設定用(ScrollBar2)
Max	データ総数	maxWidth(4行目)
Min	0(データ先頭行)	minWidth(3行目)
Value	0(データ先頭行)･･･初期値	minWidth(3行目)･･･初期値
LargeChange	ScrollBar2.Value値 × OverLap(6行目)	minWidth(3行目)
SmallChange	sChange(2行目)	sChange(2行目)

図４－２

図４－２はデータ数が4000データ（maxWidth値）以上の場合です。それ未満の場合にはグラフ表示及びスクロールバー操作がおかしくなるため、プログラムで設定値を調整しています。
なお、定数の値は自由に調整して構いませんが、maxWidth値は表示するグラフ要素数ですので、「Excelのバージョンや操作するPCの能力」を考慮して決めた方が良いと思います。

７行目は、新しく作るグラフシートオブジェクトを示すmyChart変数です。
８行目のXstartは、ユーザーが指定した「Ｘ軸の先頭セル」、９行目のYcolはユーザーが指定した「Ｙ軸の列」を示すRange型変数です。

４－２．メインプログラム

今回のサンプルファイルのシート上の「グラフ化」ボタンをクリックすると呼び出されるプロシージャが図４－３です。
アドインをする際は、このプロシージャを実行すれば良いと思います。

10. '==========　⇩②　メインプログラム　====================
11. Public Sub Splt_Chart_Start()
12. 　Dim XmaxRow As Long　　　　 'データ域の最終行位置
13. 　Dim myWidth As Long　　　　 '初回描画用のデータ数
14. 　Dim Xend As Range　　　　　 'X軸列の最下行セル
16. 　On Error Resume Next
17. 　　Set Xstart = Application.InputBox("X軸の先頭セルを指示して下さい", Type:=8)
18. 　　Set Ycol = Application.InputBox("Y軸の列を指示して下さい(複数可)", Type:=8)
19. 　　If Not Err.Number = 0 Then Exit Sub
20. 　On Error GoTo 0
22. 　Set Xend = Xstart(1).Offset(Rows.Count - Xstart.Row)
23. 　XmaxRow = Xend.End(xlUp).Row - Xstart.Row + 1
24. 　myWidth = Application.WorksheetFunction.Min(XmaxRow, minWidth)
26. 　Set myChart = Charts.Add
27. 　Call DrawChart(StartRow, myWidth, xlXYScatterLines)
29. 　Call UserForm1.UFstart(XmaxRow, xlXYScatterLines)
30. End Sub

図４－３

１２～１４行目は、プロシージャ内で使用する変数宣言です。
１２行目の「XmaxRow」はデータの要素数（データ行数）を示し、１３行目の「myWidth」は初回に表示するグラフのデータ数を示します。
またデータの行数を調べる為の「Ｘ軸列の最下行セル」として、１４行目で「Xend」を宣言しています。

１７行目ではInputBoxを表示させ「Ｘ軸の先頭セル」をユーザーに指定してもらいます。
１８行目でも、続いてInputBoxを表示させ「Ｙ軸の列」を指定してもらいます。
両方ともRange型としてセル位置・列位置という「セル参照」を取得しますので、InputBoxメソッドの引数Typeには「8」を指定しています。
得られたセル参照は、「Ｘ軸の先頭セル」は変数 Xstart に、「Ｙ軸の列」は変数Ycolに代入されます。

InputBoxメソッドは、「OKボタン」をクリックすればRange型を戻してくれますが、「キャンセル」や右上の×印をクリックするとBoolean型のFalseを戻して来ます。しかし代入する先の変数Xstart・YcolはRange型ですので代入できません。

代入出来ないとエラーが発生するのですが、そのエラーを無視して次の行に進めているのが１６行目の「On Error Resume Next」です。
１７行目か１８行目でエラーが発生（＝キャンセルをクリックした等）しても、「On Error Resume Next」のおかげでエラーで停止する事は無くコードは進んで行きますが、エラーが発生した時の「Err.Number」はちゃんと保持しています。
ですので１９行目で「Err.Number」を調べ、ゼロでは無い（＝エラーが発生している）場合はプログラムを終了します。

なお「On Error Resume Next（１６行目）」は、単に「エラーを無視している」のでは無く「ユーザーがどういう操作をしたか」をエラーという形で受け取り処理しているのです。
ですので、その処理が終わった後は、２０行目のように「On Error GoTo 0」で元の状態（エラーが発生したらプログラムが停止）に戻しています。

２２～２３行目の処理は「データの要素数」を計算しています。
データの一番下の行（＝データの最後の行）を取得する方法として良く使われる方法は、以下の２種類があります。
　①基準セルに対して「.End(xlDown)」で「空白セルの直前」のセルを取得し、行番号からデータ数を割り出す。
　②基準セルの行位置を一旦一番下「Application.Rows.Count」まで移動し、そこからデータのあるセルまで「.End(xlUp)」で移動し、その行番号からデータ数を割り出す。

データの中に空白行が無ければ①②どちらの方法でも得られる値は同じですが、空白行がある場合には①は最初の空白行の１つ前までとなり、②の場合は空白行の行数も含んでデータ行とする計算になります。
今回は②の方法で行数を割り出しています。

ちなみに、図４－４の方法でもほぼ同じ値が得られます。

22. 　Set Xend = Cells(Rows.Count , Xstart.column)

図４－４

ただし「Cells（行 , 列）」だけでは、「その時点でアクティブになっているシート」が対象になってしまい、ユーザーが操作したシート以外となる可能性があります。もしそうなると間違ったセルを取得する事になってしまいます。
もし違うシートがアクティブになる可能性があるのでしたら、図４－５のように「シートを指定」する必要があります。
ちなみに図４－３の２２行目はシート情報を残したままの結果が得られます。

22. 　Set Xend = Xstart.Parent.Cells(Rows.Count , Xstart.column)

図４－５

データの最下行のセル（Xend）が求まったら、２３行目でデータの行数を計算します。単純にデータ先頭行位置とデータ最下行セルの行位置の引き算になります。

また「データは最初の空白行までとする」場合には「.End(xlDown)」を使うことになりますが、もしデータが１行しか無い場合に「.End(xlDown)」を使用すると、空白行の下のデータのあるセル（データが無ければ、Excelの最下行のセル）を指すことになります。
ですので、データ行が１行だけの場合も考慮して、図４－６のような条件式にする必要があります。
（「１行だけのデータをグラフにするな！」と言いたいですが、エラーを出さないのが私たちの仕事です。）

• 　If Xstart.Offset(1, 0) = "" Then
• 　　XmaxRow = 1
• 　Else
• 　　XmaxRow = Xstart.End(xlDown).Row - Xstart.Row + 1
• 　End If

図４－６

２４行目は「データ行数」と「定数：グラフの初期表示データ数」を比較して、小さい方を変数myWidthに代入しています。
実はこの計算部分は、フォームモジュールの図６－３で同様の計算をしています。本来ならば統合して同じコードを書かない様にしたかったのですが、以下の理由から泣く泣くダブリコードとしました。

２６行目では新たなグラフシートを作成し、２７行目では表示するデータのセル範囲とグラフ種類を指定してグラフを完成させているのですが、この２７行目と同じ機能がフォームモジュール側に存在しますので、この２７行目を削除してフォーム側に統一させる事は、プログラムの流れとしては不可能ではありません。
デメリットは、「グラフシート作成」と「セル範囲指定」の間が空いてしまう（時間が掛かってしまう）ことで、モタモタしている内に「グラフシート作成」段階で「Excelは、アクティブシートにあるデータをデータセル範囲と勝手に判断しグラフを作ってしまう」のです。

グラフを勝手に作られても後から正式にセル範囲指定をするのですから、最終的には思った通りのグラフが完成するのですが、「勝手に作っている時間」が問題になります。例えばサンプルファイルの6000行余りのデータでも私のPCでは5秒以上かかり、その間画面は凍結してしまいます。
やはり「グラフシート作成」と「セル範囲指定」は連続して実行しないと実用的でなくなるようです。

２７行目で実行するのは初回に作るグラフですから、データ先頭（StartRow）から表示し、表示するデータ数は最小データ数（myWidth）としています。
「データ先頭」は定数StartRowをそのまま使えます。一方「最小データ数」は図４－１の３行目でminWidthとして定数宣言していますが、その定数値(今回は50データ）よりもデータが少ない場合は「少ないデータ数」に合わせて表示する必要があるため、２４行目でワークシート関数を使って少ない方の値を求めmyWidthを使用しています。

２７行目が完了した時点で、グラフとしては一応最終仕様になっており、後はダイアログを表示するために２９行目を実行します。
ダイアログは標準モジュールから直接起動するのではなく、標準モジュール側からフォームモジュール側へ値を引き継ぐために、引数を使用しています。
渡す値は、スクロールバーの設定に必要な「データ総数（XmaxRow）」と「初期グラフ種類（xlXYScatterLines）」です。この２つの引数は、フォームモジュール側でモジュールレベルの変数として使用されます。

４－３．グラフ軸の設定

グラフのＸ軸Ｙ軸を設定するプロシージャが、図４－７です。
引数として、データ開始位置（StRow）、グラフ表示のデータ数（CountRow）、グラフ種類（CType）を受け取ります。

31. '==========　⇩③　グラフ軸設定　====================
32. Sub DrawChart(StRow As Long, CountRow As Long, CType As XlChartType)
33. 　Dim i As Long　　　　　　　　　 'グラフの系列
34. 　Dim j As Long　　　　　　　　　 'Ｙ軸指定セル範囲の中のエリア数
35. 　Dim k As Long　　　　　　　　　 'Ｙ軸指定セル範囲の中の同一エリア内の列数
36. 　Dim AxisX As Range　　　　　　 'Ｘ軸セル範囲
37. 　Dim AxisY As Range　　　　　　 'Ｙ軸セル範囲
38. 　Dim AxisTX As Range　　　　　　 'Ｘ軸タイトル部
39. 　Dim AxisTY As Range　　　　　　 'Ｙ軸タイトル部
41. 　Call myAxis(AxisX, AxisY, AxisTX, AxisTY, StRow, CountRow)
43. 　With myChart
44. 　　.ChartType = CType
45. 　　.SetSourceData Union(AxisX, AxisY, AxisTX, AxisTY), xlColumns
47. 　　i = 1
48. 　　For j = 1 To AxisY.Areas.Count
49. 　　　For k = 1 To AxisY.Areas(j).Columns.Count
50. 　　　　.SeriesCollection(i).XValues = AxisX
51. 　　　　.SeriesCollection(i).Values = AxisY.Areas(j).Columns(k)
52. 　　　　.SeriesCollection(i).Name = AxisTY.Areas(j).Columns(k)
53. 　　　　i = i + 1
54. 　　　Next k
55. 　　Next j
57. 　　.Axes(xlCategory).MinimumScale = Application.WorksheetFunction.Min(AxisX)
58. 　　.Axes(xlCategory).MaximumScale = Application.WorksheetFunction.Max(AxisX)
59. 　End With
60. End Sub

図４－７

３３～３９行目はプロシージャ内で使用する変数宣言です。
３３～３５行目の i・j・k は、４７～５５行目のFor～Next文内で使われるカウンタ変数です。
３６～３９行目のAxisが先頭に付く変数は、４１行目のmyAxisプロシージャを呼び出した結果として得られるＸ軸Ｙ軸のデータセル範囲・タイトルセル範囲です。（図４－１０～１３を参照下さい）

４１行目のmyAxisプロシージャは、第５引数・第６引数にそれぞれ「データ開始位置（StRow）」、「グラフ表示のデータ数（CountRow）」を渡すことで、第１～４引数（Ｘ軸Ｙ軸のデータセル範囲・タイトルセル範囲）を得るものです。
自分が受け取った第１引数・第２引数を、そのままmyAxisプロシージャの第５引数・第６引数に横流ししています。

４３行目の「With myChart」は、これ以降の処理は全て図４－３の２６行目で新作したグラフシートに対しての処理になります。

まず４４行目の「.ChartType = CType」は、グラフ種の設定です。
本サイトの「複数系列のデータを連続的にグラフ化」では、「SetSourceData」の前後に「ChartType設定」を配置していましたが、今回のグラフではＹ軸を入れ替えてはいないので後ろ側のChartType設定は不要のようです。もし変な動きをする場合がありましたら、５６行目辺りに「.ChartType = CType」を再度設定してみてください。

４５行目は、Ｘ軸Ｙ軸のセル範囲を設定しています。
４１行目で、「Ｘ軸Ｙ軸のデータセル範囲・タイトルセル範囲」はバラバラの状態で受け取っているので、Unionでセル範囲結合させてSetSourceDataに渡しています。
また第二引数として、データ方向を規制するため「xlColumns」を設定していますが、これはデータ数が極端に少ない場合にデータ方向をExcelが誤認した場合があったため、明示的に設定しています。

当初の構想では、４１行目のmyAxisプロシージャでは、Ｘ軸Ｙ軸およびタイトル範囲までも含めた「まとまったセル範囲」として受取り、そのまま４５行目の引数にするつもりでいました。
しかしSetSourceDataに渡すセル範囲は「一番左列がＸ軸列、Ｙ列はそれより右側の列」と勝手に解釈されるようです。
例えば、「Range("E1:E10,A1:B10,D1:D10")」などと「E列がＸ軸ですよ」と並べてみても、グラフになると「A列がＸ軸」として表示されてしまいます。
時間軸等のＸ軸にしたい列は最も左にあるのが通常なのでしょうが、それ以外にある場合も考えられますし、また時間軸以外をＸ軸にして相関関係を見たい場合だってあるはずです。

そのため４７～５５行目では、データ系列へのＸ軸Ｙ軸範囲の入れ替えをしています。
まず例として、ユーザーがＸ軸１列とY軸を３列指定したとします。意に反してＹ列の内１列がＸ軸となり、Ｙ列の残り２列とＸ軸１列分がＹ軸になってしまったとしても、完成したグラフの系列は３列のはずです（１列はＸ軸ですので）。
つまり割り当てが間違っていたとしても「グラフ系列数 ＝ ユーザー指定のＹ軸列数」は成立します。

ですので出来上がったグラフの系列毎に、ユーザー指定のＹ軸列を１つ１つ当てはめ直していけば、ユーザーが期待したグラフになるはずです。４７～５５行目は、その当てはめ直しをしています。

まず「ユーザーが指示したＹ軸のセル範囲は、何列分か」を知る必要があります。例えば指定したセル範囲が図４－８だったとします。Rangeで表せば「Range(" C2:D10 , F2:F10 , H2:H10 ")」です。

図４－８

まず「マウスの左ボタンを押したまま選択したエリア」が「Area」になります。そのAreaの数は「Areas.Count」で得られ、図４－８では３つとなります。また、それぞれのエリアは「Areas(ｴﾘｱ番号)」で表されます。
各エリアの中に列がいくつあるかは「Areas(ｴﾘｱ番号).Columns.Count」で得られ、図４－８のAreas(1)には２列あることになります。それぞれの列は「Areas(ｴﾘｱ番号).Columns(列番号)」で表されます。

ですので、４８行目のFor文でAreasをｊとして分けたのち、４９行目のFor文で列をｋとして分けて得られた「列データ」が
　AxisY.Areas(j).Columns(k)　・・・各列のデータ範囲（５１行目）
　AxisTY.Areas(j).Columns(k)　・・・各列のタイトル範囲（５２行目）
となりますので、それをグラフ系列の「.Value（Y軸のセル範囲）」および「.Name（凡例名）」に代入しています。
また、「.XValue（Ｘ軸のセル範囲）」には５０行目で「AxisX（Ｘ軸のセル範囲）」を指定します。

なお４７行目・５３行目で使用している「i」は、グラフの系列数のカウンタ変数になっています。

５７～５８行目は、Ｘ軸の最小値「.Axes(xlCategory).MinimumScale」および最大値「.Axes(xlCategory).MaximumScale」の設定です。Ｘ軸範囲である「AxisX」に対してワークシート関数のMin関数、Max関数を使用することで最小値最大値が得られます。
なお、５７～５８行目の設定をしない場合には、グラフのＸ軸の最小最大は自動的に「ほど良い間隔を空けて」くれます。但しスクロールバーで表示位置を移動していった場合には、「ほど良さが一定していない」ためにグラフがバタバタ暴れて移動する感じになります。

４－４．グラフ軸のセル範囲計算

図４－７の４１行目から呼び出されるのが図４－９になります。
第５引数に「データ開始位置（StRow）」、第６引数に「グラフ表示のデータ数（CountRow）」を受け取り、計算した結果として第１～４引数で「Ｘ軸データセル範囲」「Ｙ軸データセル範囲」「Ｘ軸タイトルセル範囲」「Ｙ軸タイトルセル範囲」を戻します。

61. '==========　⇩④　グラフ軸セル範囲計算　====================
62. Sub myAxis(AxisX As Range, AxisY As Range, AxisTX As Range, AxisTY As Range, _
63. 　　　　　　　　　　　　　　　　　　　　　　　　StRow As Long, CountRow As Long)
64. 　Set AxisX = Xstart.Offset(StRow).Resize(CountRow, 1)
65. 　Set AxisY = Intersect(AxisX.EntireRow, Ycol)
66. 　Set AxisTX = Xstart(1).Offset(-1)
67. 　Set AxisTY = Intersect(Ycol, Xstart(1).EntireRow).Offset(-1)
68. End Sub

図４－９

６４行目は「Ｘ軸データセル範囲」を計算しています。図４－１０のように、ユーザーが指定したＸ軸先頭セル「Xstart」を基準にし、Offset関数で引数StRow分だけ下に移動①させます。そこを新基準としセル範囲を下にResize関数でCountRow行分まで拡大した範囲②を「AxisX」としています。

図４－１０

６５行目は「Ｙ軸データセル範囲」の計算です。図４－１１のように、６４行目で求めた「AxisX」を含んだ行全体（.EntireRow）①と、ユーザーが指定したＹ軸列（Ycol）②の重なった範囲（Intersect）③を求め、「AxisY」としています。
このIntersectを使えば、離れた列を選択してYcolが複数のAreaに分かれていたとしても、分かれた状態を保ったまま重なった範囲を返してくれます。

図４－１１

６６行目は「Ｘ軸タイトルセル範囲」の計算です。図４－１２のように、ユーザーが指定したＸ軸の先頭セル「Xstart」を基準に一つ上のセル（.Offset(-1)）を取得しています。

図４－１２

ここで図４－１０の時と同様に「間違えてXstartに複数セルを設定しまった」時のことを考えてみます。
残念ながら「Xstart.Offset(-1)」という式では、複数セル範囲のまま１つ上に上がるだけですので、セル値が確定せず「Ｘ軸のタイトル」を取得することが出来なくなります。
ですので、「Xstart(1).Offset(-1)」と移動の対象を先頭セル１つに絞り、それに対してOffset(-1)をする必要があります。

６７行目は「Ｙ軸タイトルセル範囲」の計算です。図４－１３のように、ユーザーが指定したＸ軸先頭セル（Xstart）を含む行全体①と、これもユーザーが指定したＹ軸列②の重なった範囲（Intersect）③を求めます。そのセル範囲に対してOffset(-1)をすることで、Ｙ軸のタイトル「AxisTY」を得ます。

図４－１３

ここでも図４－１０の時と同様に「間違えてXstartに複数セルを設定しまった」時のことを考えてみます。
やはり「Xstart.EntireRow」としてしまうと、Intersectで重なった範囲は複数行になってしまい、Offset(-1)でも複数行となりＹ軸のタイトルを得る事ができなくなってしまいます。
ですので「Xstart(1).EntireRow」とXstartの先頭セルを基準に計算する必要があります。

なお別な方法として、AxisTXのEntireRowとYcolの重なった部分としてAxisTYを求めるやり方もあります。

４－５．グラフ種類の変更

ダイアログの「G種類変更」ボタン（CommandButton１）をクリックした時に間接的に呼び出されるのが図４－１４です。
処理対象であるグラフシート「myChart」は、図４－１の７行目で標準モジュールレベル変数として宣言していますので、フォームモジュールからは可視できません。そのため、標準モジュール側で処理を行っています。

69. '==========　⇩⑤　グラフ種類変更　====================
70. Function ChartChange()
71. 　myChart.Activate
72. 　Application.Dialogs(xlDialogChartType).Show
73. 　ChartChange = myChart.ChartType
74. End Function

図４－１４

「G種類変更」ボタンをクリックすると、まず処理対象のグラフシートをアクティブ（７１行目）にします。
７２行目では組み込みダイアログを表示させ、グラフ種類の変更が可能になります。変更可能なグラフ種は図４－１５の内、どれでも可能である訳ではありません。選択しているセル範囲から自動的に「変更可能なグラフ」だけが変更対象グラフ種になります。

グラフ種を変更した、または「キャンセル」ボタンをクリック（＝元のグラフ種から変更しない）したら、変更されても されなくても、グラフシートmyChartのグラフ種類をFunctionの戻り値として返します（７３行目）。

グラフの種類一覧（１）

定数	値	意味
xl3DArea	-4098	3 D エリア
xl3DAreaStacked	78	3D 積み上げ面
xl3DAreaStacked100	79	100% 積み上げ面
xl3DBarClustered	60	3D 集合横棒
xl3DBarStacked	61	3D 積み上げ横棒
xl3DBarStacked100	62	3D 100% 積み上げ横棒
xl3DColumn	-4100	3D 縦棒
xl3DColumnClustered	54	3D 集合縦棒
xl3DColumnStacked	55	3D 積み上げ縦棒
xl3DColumnStacked100	56	3D 100% 積み上げ縦棒
xl3DLine	-4101	3D の線
xl3DPie	-4102	3D 円グラフ
xl3DPieExploded	70	分割 3-d 円
xlArea	1	分野
xlAreaStacked	76	積み上げ面グラフ
xlAreaStacked100	77	100% 積み上げ面
xlBarClustered	57	集合横棒
xlBarOfPie	71	バーの円
xlBarStacked	58	積み上げ横棒
xlBarStacked100	59	100% 積み上げ横棒
xlBubble	15	バブル
xlBubble3DEffect	87	3-d 効果付きバブル
xlColumnClustered	51	集合縦棒
xlColumnStacked	52	積み上げ縦棒グラフ
xlColumnStacked100	53	100% 積み上げ縦棒
xlConeBarClustered	102	集合円錐型横棒
xlConeBarStacked	103	積み上げ円錐型横棒
xlConeBarStacked100	104	100% 積み上げ円錐型横棒を横
xlConeCol	105	3-d 円錐型縦棒
xlConeColClustered	99	集合円錐型縦棒
xlConeColStacked	100	積み上げ円錐型縦棒
xlConeColStacked100	101	100% 積み上げ円錐型縦棒
xlCylinderBarClustered	95	集合円柱横棒
xlCylinderBarStacked	96	積み上げ円柱型横棒
xlCylinderBarStacked100	97	100% 積み上げ円柱型横棒を横
xlCylinderCol	98	3D 円柱型縦棒
xlCylinderColClustered	92	集合円錐型縦棒

グラフの種類一覧（２）

定数	値	意味
xlCylinderColStacked	93	積み上げ円錐型縦棒
xlCylinderColStacked100	94	100% 積み上げ円柱縦棒
xlDoughnut	-4120	ドーナツ
xlDoughnutExploded	80	分割ドーナツ グラフ
xlLine	4	Line
xlLineMarkers	65	マーカー付き折れ線
xlLineMarkersStacked	66	マーカー付き積み上げ折れ線
xlLineMarkersStacked100	67	100% 積み上げ折れ線マーカー付き
xlLineStacked	63	積み上げ折れ線
xlLineStacked100	64	100% 積み上げ折れ線
xlPie	5	円
xlPieExploded	69	分割円グラフ
xlPieOfPie	68	補助円グラフ付き
xlPyramidBarClustered	109	集合ピラミッド型横棒
xlPyramidBarStacked	110	積み上げピラミッド型横棒
xlPyramidBarStacked100	111	100% 積み上げピラミッド型横棒を横
xlPyramidCol	112	3-d ピラミッド型縦棒
xlPyramidColClustered	106	集合ピラミッド型縦棒
xlPyramidColStacked	107	積み上げピラミッド型縦棒
xlPyramidColStacked100	108	100% 積み上げピラミッド型縦棒
xlRadar	-4151	レーダー
xlRadarFilled	82	塗りつぶしレーダー
xlRadarMarkers	81	データ マーカー付きレーダー
xlStockHLC	88	高値-安値-終値
xlStockOHLC	89	開く-高値-安値-終値
xlStockVHLC	90	ボリューム-高-安値-終値
xlStockVOHLC	91	ボリュームに開く-高-安値-終値
xlSurface	83	3D 表面
xlSurfaceTopView	85	表面 (トップ ビュー)
xlSurfaceTopViewWireframe	86	表面 (トップ ビューがワイヤ フレーム)
xlSurfaceWireframe	84	3 D サーフェス (ワイヤー フレーム)
xlXYScatter	-4169	散布図
xlXYScatterLines	74	折れ線付き散布図
xlXYScatterLinesNoMarkers	75	行とデータ マーカーなしの散布図
xlXYScatterSmooth	72	平滑線付き散布図
xlXYScatterSmoothNoMarkers	73	データ マーカーなし平滑線付き散布図

図４－１５

４－６．グラフの削除・ダイアログ終了

ダイアログの「G削除･終了」ボタン（CommandButton２）をクリックした時に間接的に呼び出されるのが図４－１６です。
処理対象であるグラフシート「myChart」は、図４－１の７行目でモジュールレベル変数として宣言していますので、フォームモジュールからは可視できません。そのため標準モジュール側で処理を行っています。

75. '==========　⇩⑥　グラフ削除・終了　====================
76. Sub ChartDel()
77. 　Application.DisplayAlerts = False
78. 　　myChart.Delete
79. 　Application.DisplayAlerts = True
80. 　Unload UserForm1
81. End Sub

図４－１６

７８行目はグラフシートを削除してます。
通常、シートを削除する時にはアラート（図４－１７）が発生して、OKボタンをクリックしないと削除できません。

図４－１７

ですので、そのアラートを出さない様に、７７行目で「Application.DisplayAlerts = False」とアラートを非表示にしてからグラフシートを削除しています。
削除後は「Application.DisplayAlerts = True」（７９行目）でアラート表示を元の状態に戻しています。

グラフシートを削除後、８０行目でダイアログを消しています。
ここで「Unload UserForm1」の代わりに「UserForm1.Hide」を使用してしまうと、ダイアログを隠した時点でのスクロールバー（ScrollBar１）のValue値が残ります。
フォーム起動時のScrollBar１の設定（ScrollBar1Configプロシージャ：図６－８）では、ScrollBar1のValue値はあえて設定していませんので、次回再起動した時には初回なのに「データの先頭からグラフ化」しなくなってしまいます。
Value値をあえて設定しないのは、ScrollBar２を操作した時でも「表示されているグラフの開始行は一緒」の方がユーザーにとって使い易い（粗くグラフを見て、気になったところを拡大できるイメージ）と判断したからです。

なお削除の対象は「図４－３の２６行目で作成したグラフシートmyChart」ですので、ダイアログ右上の×印で終了した時に残されたグラフシートはそのまま残ったままとなります。
これはプログラムミスでは無く、グラフ分析中にユーザーが「残しておきたい」と思ったグラフを残す機能が今回無いため、ダイアログ右上×印操作の時には「グラフ削除しない」ことにしました。

５．フォーム外観作成

フォームには図５－１のように、「Ｘ軸の位置」を変更するScrollBar１と「Ｘ軸の表示データ数」を変更するScrollBar２を配置し、それぞれの上にLabelを配置し、スクロールバーの示している値を表示します。
また、右下には「グラフ種類変更」ボタンと「グラフシート削除・マクロ終了」ボタンを配置しています。

図５－１

ボタン表面の文字列、及びLabel１～２のタイトルLabel（表示行、表示スパン　の文字列）は事前にプロパティで文字列を設定しています。

６．フォームモジュール

６－１．フォームモジュールレベルの変数宣言

フォームモジュールレベルでの変数宣言部分では、図６－１のように２つの変数を宣言しています。

82. '==========　⇩⑦　変数宣言　====================
83. Dim XmaxRow As Long 　　　　　 'データ総行数
84. Dim CType As XlChartType　　　 'グラフ種類

図６－１

８３行目の「XmaxRow」はデータの総行数、８４行目の「CType」はグラフ種類になります。
「XmaxRow」は図６－２の９０行目で標準モジュール側から与えられ、「CType」も８９行目で初期値として与えられます。「CType」はその後「グラフ種類変更」を行った際には書き換えられます。

６－２．フォームの起動

標準モジュールの図４－３の２９行目から呼び出されるプロシージャが図６－２になります。
引数としては、「XMR（データ行総数）」と「CT（グラフ種類）」を受け取ります。

85. '==========　⇩⑧　フォーム起動　====================
86. Sub UFstart(XMR As Long, CT As XlChartType)
87. 　Dim Sb2 As Long　　　　　　　　　 'ScrollBar2の初期設定値(Value値)
89. 　XmaxRow = XMR　　　　　　　　　　 '行数の値
90. 　CType = CT　　　　　　　　　　　　 'グラフ種類
92. 　Sb2 = ScrollBar2Config　　　　　　 'ScrollBar2の設定
93. 　Call ScrollBar1Config(Sb2)　　　　 'ScrollBar1の設定
95. 　Me.Show 0
96. End Sub

図６－２

８７行目のSb2は、初回のグラフ表示データ数であるScrollBar２のValue値（＝ScrollBar2Configの戻り値）を保存する変数です。この値はScrollBar１の設定に必要になります。
８９～９０行目は、プロシージャの引数として受け取った値をモジュールレベル変数に代入しています。

９２行目はScrollBar２の設定を実施しています。「ScrollBar2Config」はFunctionプロシージャ（図６－３）で、戻り値として「初回のグラフデータ数」を戻して来ますので、それを変数Sb2に代入します。
９３行目では、９２行目で得たSb2を引数にして「ScrollBar1Config（図６－８）」を呼出し、ScrollBar１の設定を実行します。
スクロールバー設定の詳細については、次項・次々項で説明します。

９５行目では、フォームをモードレス（シート側の操作も可能）で起動します。

６－３．ScrollBar２の設定

グラフ表示データ数用のスクロールバー（ScrollBar２）は、起動時に１回限り設定するだけです（図６－３）。

97. '==========　⇩⑨　ScrollBar２の設定　====================
98. Private Function ScrollBar2Config()
99. 　Dim maxDataElement As Long　　　 'グラフＸ軸の最大要素数
100. 　Dim minDataElement As Long　　　 'グラフＸ軸の最小要素数
102. 　Select Case XmaxRow　　　　　　　 'データ行数
103. 　　Case Is < minWidth
104. 　　　minDataElement = XmaxRow
105. 　　　maxDataElement = XmaxRow
106. 　　Case Is < maxWidth
107. 　　　minDataElement = minWidth
108. 　　　maxDataElement = XmaxRow
109. 　　Case Else
110. 　　　minDataElement = minWidth
111. 　　　maxDataElement = maxWidth
112. 　End Select
114. 　Me.ScrollBar2.Max = maxDataElement
115. 　Me.ScrollBar2.Value = minDataElement
116. 　Me.ScrollBar2.Min = minDataElement
118. 　If (maxDataElement - minDataElement) < minDataElement Then
119. 　　Me.ScrollBar2.LargeChange = (maxDataElement - minDataElement)
120. 　Else
121. 　　Me.ScrollBar2.LargeChange = minDataElement
122. 　End If
123. 　Me.ScrollBar2.smallChange = sChange
125. 　ScrollBar2Config = Me.ScrollBar2.Value
126. End Function

図６－３

６－３－１．ScrollBar２の設定の考え方

ScrollBar２の設定を行うに当たり、基本的考え方を図６－４に示します。


図６－４

図４－１ではPublic定数としてScrollBar２のMin値・Max値を宣言しています。（今回はMin=50、Max=4000）
しかし、下記の様に「データの総行数が定数より少ない場合」には、グラフの表示数よりもデータ総行数の方が少なくなり、グラフに余白が出来てしまうことになります。
　・データ総行数＜Min値　の場合
　・データ総行数＜Max値　の場合で、スクロールバーをMax側に持ってきた時
ですので、図６－４の斜め線の部分のように、データ総行数が定数よりも少ない時は「データ総行数そのものをグラフの表示数」とすることにしました。

また、スクロールバーの設定値にはLargeChangeとSmallChangeがあります。動作としては、図６－５に於ける「レール部分」をクリックする事でLargeChangeの値だけ変化し、「スクロール矢印部分」をクリックする事でSmallChangeの値だけ変化します。

図６－５

また図６－６に、スクロールバーの操作部位と操作方法で、動く量と発生するイベントの関係を整理しておきます。

スクロールバーの操作と発生するイベントの関係

クリックする場所	操作	動く量・示す値	発生イベント
スクロール矢印	クリック	SmallChangeプロパティの量	Changeイベント
スクロールボックスと スクロール矢印の間の領域（レール）	クリック	LargeChangeプロパティの量	Changeイベント
スクロールボックス	クリックし移動中	スクロールボックスの位置のValue値 (動く量はValue=1ずつ)	Scrollイベント
	移動後クリックを離す	クリックを離した場所のValue値	Changeイベント

図６－６

図６－５では「スクロールバーには必ずスクロールボックスがある」ように思えますが、そうではありません。
図６－７に、Max値・Min値・LargeChange値を色々変えた時のスクロールバー外観をまとめました。

図６－７

これは外観の問題だけでは無く結構重要な事です。つまり、スクロールボックスが非表示と言う事は「スクロール矢印でのみ操作する」ことになるので、SmallChangeに１より大きな値を設定していた場合には「スクロールバーでは設定できない値（Value値）が発生してしまう」ことになります。

ですので設定できない値が無いように（＝スクロールボックスが表示されるように）、Max値・Min値を見ながらLargeChange値を決める必要があります。
また、スクロールボックスのサイズは、赤い数字で表したように「LargeChange / (Max + LargeChange)」が全長に対する割合のようですが、LargeChange値とMax値の比がある程度小さかったり大きかったりすると、この式は当てはまらないようです。

６－３－２．ScrollBar２の設定　その１（Max・Min・Value値）

９９～１００行目では、プロシージャ内変数として「最大値（maxDataElement）」と「最小値（minDataElement）」を宣言しています。変数を使用せずに、ScrollBar２のMaxプロパティとMinプロパティに直接代入しても問題はありませんが、変数を使用した方が分かり易そうと思ったまでです。

１０２～１１２行目は、図６－４の可動範囲（黄色＋オレンジのエリア）をコード化している部分です。
このサンプルファイルでは「minWidth＝50、maxWidth＝4000 」としていますので、数値を念頭に解読すると分かり易いと思います。

１０２行目は、データの総行数「XmaxRowの値」により選別しています。
図６－４に置き換えれば、横軸が①「０～minWidth」の時が１０３行目、②「minWidth～maxWidth」の時が１０６行目、③「maxWidth～」の時が１０９行目に相当します。

まず図６－４の①「０～minWidth」の場合は「Max値＝Min値＝XmaxRowの値」ですので、１０４～１０５行目の式になります。
②「minWidth～maxWidth」の場合は、「Max値＝XmaxRowの値」「Min値＝minWidth（一定値）」で、１０７～１０８行目の式になります。
③「maxWidth～」の場合は、「Max値＝maxWidth（一定値）」「Min値＝minWidth（一定値）」で、１１０～１１１行目の式になります。

データの総行数「XmaxRowの値」によって、Maxプロパティ、Minプロパティに代入する値が決まりましたので、１１４～１１６行目でスクロールバーの設定をします。
尚、Value値には今回は最小値（minDataElement）を代入しています。もちろん最大値（minDataElement）を代入しても良いのですが、初回のグラフ表示の設定ですので「素早く表示が完了するグラフ」になるようにデータ数の少ない最小値の方を選択しました。

６－３－３．ScrollBar２の設定　その２（LargeChange・SmallChange値）

１１８～１２３行目は「LargeChange」プロパティ、「SmallChange」プロパティの設定です。
１１８行目で「minDataElement」と「minDataElement」の差を求め、それを「minDataElement」と比較します。
（図６－４の①の部分は除外（スクロールボックスが表示されない為）されるため「minWidth」と比較しても結果は同じです。）
図６－４に置き換えれば、横軸が④の時（濃いオレンジ色部分）が１１９行目、⑤の時（明るいオレンジ色部分）が１２１行目に相当します。

④の部分では、LargeChangeプロパティにminWidth値を設定してしまうと、図６－７のNo２の状態になりますのでスクロールボックスが消えてしまうことになります。ですので、１２１行目では「 (maxDataElement - minDataElement)」の値を設定しています。
これにより、スクロールバーのレール部分をクリックする（＝LargeChange値分を動かす）事でValue値はMax値まで達すると共にスクロールボックスで１つずつの移動も可能になります。
それ以外の場合（⑤明るいオレンジ部分）は単純にminDataElement値（＝minWidth値）を設定します（１２１行目）。

１２３行目はsmallChangeプロパティの設定で、今回はsChange値（＝１）を設定しています。
この値を例えば２０や３０に設定していて「 (maxDataElement - minDataElement)」を超えていた場合でも、図６－７のNo４の状態に当たりますのでスクロールボックスはちゃんと表示されます。
また、そのような状況でsmallChange値を発生させるスクロール矢印部をクリックしても、オーバースケールする事無くsmallChange値以内での「 (maxDataElement - minDataElement)値」が発生することになり、動作的には問題ありません。

６－３－４．ScrollBar２の設定　その３（関数プロシージャとしての戻り値設定）

このScrollBar2の設定を行っているプロシージャは、関数プロシージャにしています。ですので「ScrollBar2Config関数」としての戻り値を返す必要があります。

このScrollBar２の設定のあと、ScrollBar１の設定を行います。「ScrollBar１の設定」はグラフのＸ軸データ数により変化しますので、「ScrollBar２のValue値」が必要になります。
ですので、関数としての戻り値は「ScrollBar２.Value」となり、１２５行目で設定をしてからプロシージャを終了しています。

６－４．ScrollBar１の設定

図６－２の９３行目、及びScrollBar２（グラフ表示データ数調整用）を操作したときに呼び出されるのが図６－８です。
引数として、グラフ表示データ数（グラフの表示幅）であるDispWidthを受け取ります。

127. '==========　⇩⑩　ScrollBar１の設定　====================
128. Private Sub ScrollBar1Config(DispWidth As Long)　　 '第一引数＝表示幅(ScrollBar2.Value)
129. 　Me.ScrollBar1.Max = XmaxRow - DispWidth
130. 　Me.ScrollBar1.Min = 0
132. 　If Me.ScrollBar1.Max < DispWidth * OverLap Then
133. 　　Me.ScrollBar1.LargeChange = Me.ScrollBar1.Max
134. 　　Me.ScrollBar1.smallChange = sChange
135. 　Else
136. 　　Me.ScrollBar1.LargeChange = DispWidth * OverLap
137. 　　Me.ScrollBar1.smallChange = sChange
138. 　End If
139. End Sub

図６－８

６－４－１．ScrollBar１の設定の考え方

ScrollBar１は、ScrollBar２で決めた表示幅（表示データ数）で表示位置を移動していくスクロールバーです。
移動していくイメージを図６－９に表現してみます。グレー部分がデータ総行数を示し、一点鎖線の赤枠がグラフとして表示している範囲を示します。


図６－９

図６－４の①の部分ではScrollBar２の値は「データ総行数に固定」しています。固定している理由は「データが非常に少なく、拡大縮小も移動も不要」のためです。
ですのでScrollBar１側でも操作不要（＝操作不可）ですので、図６－９の一番左側（[表示幅＝データ数]）のように移動を出来なくします。

次に図６－９の真ん中（[表示幅＜データ数]）のようなデータ数が表示幅より少しだけ大きい場合を考えます。
データ全体を見ることはできませんが、データの最初の部分のグラフと最後の部分のグラフではダブっているデータが多くなります。つまり、ちょっとだけ表示幅を動かせば最後のデータを表示することが出来ます。
この表示幅の位置は、図６－９で言うと「太い一点鎖線枠の左端位置」としており、これがScrollBar１のValue値（＝表示グラフの開始データ位置）ということになります。
ScrollBar１の動かせる限界値がMax値ですので、ScrollBar１のMaxプロパティは「データ数（XmaxRow）－表示幅（DispWidth）」となります。なお、Min値は常にゼロとしています。

このMax値の考え方は、データ数が表示幅よりもずっと大きいような図６－９の一番右側の図（[表示幅 ≪ データ数]）でも同じです。
しかし、一つ隣の表示幅のグラフに移動するのに「LargeChange」を用いる時にはどうでしょう。ScrollBar２の設定の時と同様に、Max値ーMin値（ScrollBar１の場合にはMin値はゼロですので、Max値そのもの）よりLargeChange値が小さくないとスクロールボックスが非表示になってしまいます。
ですのでScrollBar１の時も、スクロールボックスが表示されるようにLargeChange値を調整する必要があります。

なお図６－９は、隣に移動するのに「１画面分動く（OverLap = 1 ）」とした説明図にしていますが、今回のOverLap値は図４－１の６行目で「0.2」と宣言しています。つまり、ScrollBar１のレール部をクリックした時は「画面の20%が左右に移動」することにしています。
ですので今回のLargeChangeの規定値は、表示幅（DispWidth）ｘ移動率（OverLap）となります。

６－４－２．ScrollBar１の設定　その１（Max値、Min値の設定）

１２９行目では、図６－９で示したようにMax値には「データ総行数（XmaxRow）―表示幅（DispWidth）」を代入します。
１３０行目ではMin値にゼロを代入し、データ先頭からグラフ表示されるようにしています。

なお、データ総行数が定数minWidh（今回は50に設定）より小さい場合は「ScrollBar２の表示幅＝データ総行数」ですので、本プロシージャへの引数DispWidthにもデータ総行数（＝XmaxRow）が渡されます。
つまり１２９行目の式は、XmaxRow ― XmaxRow となり、ゼロ値がMaxプロパティに設定されます。

６－４－３．ScrollBar１の設定　その２（LargeChange値、SmallChange値の設定）

データ総行数が充分大きい場合、ScrollBar１のレール部をクリックすると「画面の20%が左右に移動」するのですから、LargeChange値に設定する値は「DispWidth * OverLap」が入るはずです。
ですので１３２行目では、「Max値」と「DispWidth * OverLap」を比較し、Max値の方が小さい場合に１３３～１３４行目を実行します。逆にMax値の方が大きい場合は１３６～１３７行目を実行します。

まず先に「Max値が（ DispWidth * OverLap ）より大きい場合」は、１３６行目でLargeChangeプロパティに通常の値「DispWidth * OverLap」を設定します。
一方「Max値が（ DispWidth * OverLap ）より小さい場合」は、図６－７で示した様にスクロールバーのスクロールボックスを非表示にさせないために、LargeChangeプロパティにはMax値を設定します。

なおsmallChangeには、変数sChange（今回の設定値は１）を１３４行目・１３７行目で設定しています。

６－５．ScrollBar１の変更イベント

グラフＸ軸の表示位置移動用スクロールバー（ScrollBar1）を操作した時に動作するのが図６－１０です。
ChangeイベントとScrollイベントは、スクロールバーのどの部分をどう操作するかで分かれますので図６－６を参照願います。

140. '==========　⇩⑪　ScrollBar１の変更　====================
141. Private Sub ScrollBar1_Change()
142. 　Call ChartRefresh
143. 　Call LabelRefresh
144. End Sub
145. '==========　⇩⑫　ScrollBar１の移動中　====================
146. Private Sub ScrollBar1_Scroll()
147. 　Call LabelRefresh
148. End Sub

図６－１０

まず、スクロール矢印やレール部分、スクロールボックスを操作してマウスを離した時には「Changeイベント」が発生し、１４２～１４３行目を実行します。

１４２行目の「ChartRefresh」プロシージャは、各スクロールバーの値を使用してグラフのデータ範囲などを更新（＝グラフ更新）する機能です。詳細は図６－１３で説明します。
１４３行目の「LabelRefresh」プロシージャは、各スクロールバーの値（Value値）をダイアログのLabelに表示する機能です。詳細は図６－１３で説明します。

この２つの機能は連動する機能ですので１つにまとめることもできます。しかし「スクロールボックスをマウスでつまみ、『どの辺りの値にしようか』と迷いながら動かす」のような操作をした時には、どのような動作を期待するでしょうか。
この時に、スクロールボックスの動き（Value値が１ずつ変化）に応じてグラフ更新がスムーズに動いてくれれば最高ですが、実際にはPCパワーが追いつきません。
ですので「スクロールボックスを操作している途中は、現在のスクロールボックスの値がどこに居るかだけでも分かる」ようにするため、グラフ更新とLabel表示の機能を分け、スクロールボックス操作の間はLabel表示のみを行うこととしました。これが１４７行目の「LabelRefresh」呼出しになります。

６－６．ScrollBar２の変更イベント

グラフ表示データ数変更用スクロールバー（ScrollBar２）を操作した時に動作するのが図６－１１です。
ChangeイベントとScrollイベントは、スクロールバーのどの部分をどう操作するかで分かれますのでず６－６を参照願います。

149. '==========　⇩⑬　ScrollBar２の変更　====================
150. Private Sub ScrollBar2_Change()
151. 　Call ScrollBar1Config(Me.ScrollBar2.Value)
152. 　Call ChartRefresh
153. 　Call LabelRefresh
154. End Sub
155. '==========　⇩⑭　ScrollBar２の移動中　====================
156. Private Sub ScrollBar2_Scroll()
157. 　Call LabelRefresh
158. End Sub

図６－１１

スクロール矢印やレール部分、スクロールボックスを操作してマウスを離した時には「Changeイベント」が発生し、１５１～１５３行目を実行します。

まず「グラフ表示データ数」は、ScrollBar１の設定値に影響を与えますので、ScrollBar２のValue値の変更を行った時点（Changeイベント）で「ScrollBar1Config」プロシージャを呼び出します。（１５１行目）
１５２行目では「ChartRefresh」プロシージャを呼び出し、グラフのデータ範囲などを更新します。
１５３行目では「LabelRefresh」プロシージャを呼び出し、ダイアログのLabel表示を更新します。

Scrollイベントの１５７行目は、ScrollBar1の理由と同じく「PCの処理時間を少なくし、グラフ表示に違和感を与えない」ため、スクロールボックスを操作している途中だけLabelを更新するようにしています。

６－７．ボタンクリックによるイベント

ダイアログ上には「グラフ種類変更（CommandButton1）」と「グラフシート削除・終了（CommandButton2）」の２種のボタンが配置してあります。各々のボタンを押した時に作動するのが図６－１２です。

159. '==========　⇩⑮　グラフ種類変更ボタン　====================
160. Private Sub CommandButton1_Click()
161. 　CType = ChartChange
162. End Sub
163. '==========　⇩⑯　グラフ削除・終了ボタン　====================
164. Private Sub CommandButton2_Click()
165. 　Call ChartDel
166. End Sub

図６－１２

CommandButton１をクリックすると、１６１行目で「ChartChange」Functionプロシージャ（標準モジュール：図４－１４）を呼び出します。
「ChartChange」プロシージャ内では、グラフ変更の組み込みダイアログを表示し、その変更したグラフ種類を戻して来ます。
戻されたグラフ種類の値は、フォームモジュールレベルの変数CTypeに代入します。

CommandButton２をクリックすると、１６５行目で「ChartDel」プロシージャ（標準モジュール：図４－１６）を呼び出します。
「ChartDel」プロシージャ内では、作業をしていたグラフシートを削除後、フォームを閉じます（Unload）。

６－８．グラフ・ダイアログ内ラベルの再表示

各スクロールバーを操作した時等に呼び出されるのが、図６－１３になります。
１６８～１７０行目は、グラフのデータ範囲を入替え、グラフを更新する「ChartRefresh」プロシージャです。
１７２～１７５行目は、ダイアログ上のLabelを書き換える「LabelRefresh」プロシージャです。

フォームモジュール側では、対象のグラフシートを表すmyChart変数（標準モジュールレベルの変数）は可視できません。可視できる標準モジュール側で処理を行うため、標準モジュール側のプロシージャを呼び出しています。

167. '==========　⇩⑰　グラフ再表示　====================
168. Private Sub ChartRefresh()
169. 　Call DrawChart(Me.ScrollBar1.Value, Me.ScrollBar2.Value, CType)
170. End Sub
171. '==========　⇩⑱　ダイアログ内ラベル再表示　====================
172. Private Sub LabelRefresh()
173. 　Me.Label1.Caption = (Me.ScrollBar1.Value + 1) & "　⇔　" & (Me.ScrollBar1.Value + Me.ScrollBar2.Value)
174. 　Me.Label2.Caption = Me.ScrollBar2.Value
175. End Sub

図６－１３

「ChartRefresh」では、「DrawChart」プロシージャ（標準モジュールの図４－７）を呼び出します。
渡す３つの引数は、以下の値となります。
　・第一引数（StRow）　　：ScrollBar1.Value　　 ･･･グラフＸ軸の開始データ位置
　・第二引数（CountRow）：ScrollBar2.Value　　 ･･･グラフＸ軸のデータ数（表示幅）
　・第三引数（CType）　　：CType　　　　　　　 ･･･グラフ種類

「LabelRefresh」は、フォーム上のLabel１・Label２に、データの位置とデータ数を書き込みます。
173行目のLabel１は「データの〇〇から△△までが表示されている」ことを表すことにしましたので、グラフの始め側に「ScrollBar1のValue値」を、グラフの終わり側に「ScrollBar1とScrollBar2のValue値を足したもの」を表示させています。
なお、値をつなぐ記号として「⇔」を使用しています。本当は「～」を使いたいと思ったのですが、試してみると「上側に貼り付いたチルダ記号」の様になってしまうため諦めました。

１７４行目のLabel２は「グラフのデータ数」ですので、単純に「ScrollBar２のValue値」を書き込んでいます。

７．最後に

確認が取れなかったのですが、バージョン95とか2000辺りのExcelでは、グラフ化できるデータ行数が4000行であった気がします。ですので当時マクロを組んで（当時は、グラフ系列の「=SERIES(････) 」の中身を直接変更していた気がします）、グラフのＸ軸を移動させていた記憶があります。
また、規則性があるような波形の場合には、トリガーを使って必要な区間の波形を切り出し、グラフ表示するようなものも作った覚えがあります。

なおExcelのグラフは非常に多機能で便利ですが、グラフの元となるデータに対して「目的の現象が再現できるようなサンプリングで取り込んでいるか」「現象とノイズは分解できるか」「ローパス・ハイパスを掛けすぎていないか」などをまず確認することが、大切なことだと思います。

グラフのＸ軸をスクロールバーで移動（it-039.xlsm）

セキュリティ向上を目的として「インターネット経由でダウンロードしたOfficeファイル（Excel等）のマクロは、既定でブロック」されるようにOfficeアプリケーションの既定動作が変更になりました。（2022年4月より切替開始） 解除の方法については「ダウンロードファイルのブロック解除方法」を参照下さい。