2020/08/04

流れる文字列

• １．背景
• ２．概要
• ３．①フォーム上で文字画像を動かす
• 　３－１．フォーム上のコントロール配置
• 　３－２．フォームモジュールのコード
• 　　３－２－１．フォーム起動時の初期化
• 　　３－２－２．Frame内で文字を流す処理
• 　　３－２－３．文字を流す処理の停止
• ４．②フォーム上で文字列を部分表示し流れるように見せる
• 　４－１．フォーム上のコントロール配置
• 　４－２．フォームモジュールのコード
• 　　４－２－１．フォーム起動時の初期化
• 　　４－２－２．Labelに文字列を流すように貼り付ける処理
• 　　４－２－３．フォームの停止処理
• ５．③ワークシート上で文字画像を動かす
• 　５－１．ワークシート側の準備
• 　５－２．標準モジュールのコード（Module１）
• 　　５－２－１．流れる文字列の呼出し
• 　　５－２－２．流れる文字列作成（Module１）
• ６．④ワークシート上で文字列を部分表示し流れるように見せる
• 　６－１．ワークシート側の準備
• 　６－２．標準モジュールのコード（Module２）
• 　　６－２－１．流れる文字列の呼出し
• 　　６－２－２．流れる文字列作成（Module２）
• ７．最後に

１．背景

ユーザーに注意を促したり重要な点を説明したりする最強の手段は、MsgBox等を表示させることです。しかしユーザー側にとっては、いちいちボタンをクリックしなければならず、分かっている人にとってはいい迷惑です。
一定時間で消えてくれるダイアログも作ることは可能ですが、分かっている人にはやはり邪魔です。
次に良くやる手段としては、システムのあちこちに「説明文を貼り付ける」方法です。しかしこの方法はあまり目立たず、文字を大きくしたり色を付けたり枠線を太くしたりして強調している方も多いと思います。

今回は、そんな説明文を「流れる文字」として表示する方法について説明します。
人の目は、静止してるものより「動いているもの」に注意が行くと思うので、貼り付けた文字よりは読んでもらえると思います。

２．概要

流れる文字の「流れる方法」と「表示する場所」から、図２－１のように４種類を考えました。

	文字画像を動かす	文字列を切り取り､部分表示する
フォーム上	①	②
ワークシート上	③	④

図２－１

「文字画像を動かす」方式は「１つの文字がジワジワと出現し、文字が流れた後ジワジワと消えていく」という街で良く見るタイプです。指定範囲の右端から現れ、左端で消えます
一方「文字列を切り取り､部分表示する」方式は「文字単位で出現・消える」タイプで、いかにもExcelという感じです。文字には全角・半角がありますし、フォントにより文字サイズも異なりますので、指定範囲の幅が文字の整数倍になるとは限りません。ですので指定範囲の途中から現れ、左端で消える形になります。

なお実際に動いている様子は、一番下のサンプルファイルのSheet1でボタンを押すことで確認できます。
また、Excelは並列処理はできませんので、１つずつ実行して下さい。

以下、４種のプログラムを１つずつ紹介します。

３．①フォーム上で文字画像を動かす

３－１．フォーム上のコントロール配置

フォーム上の流れる文字を表示する位置に「フレーム」を配置します。
「流れる文字列」用のコントロールは、ただ１つです。文字列を書き込むLabelコントロールは、マクロで生成します。
文字のフォントサイズはフレームの高さに比例させていますので、フレームを必要な高さに設定して下さい。

図３－１

文字を流れる様に表示させているのはDo～Loop処理で行っています。今回はフォーム右上にボタンを設置し、フォームの終了＋文字を流す処理を停止（Endステートメント）させています。
実際のアプリで使用する際にマクロ停止が難しい場合は、Do～Loopを停止させるコード（図３－９を参照）が必要となります。

３－２．フォームモジュールのコード

３－２－１．フォーム起動時の初期化

サンプルファイルでは、Sheet1の「①Form1」ボタンに登録されたマクロを経由し「UserForm1.Show」でフォームが起動されます。

1. '==========　⇩①　フォームの初期化（Initializeイベント）　====================
2. Private Sub UserForm_Initialize()
3. 　Me.Frame1.Caption = ""
4. 　Me.CommandButton1.Caption = "Stop"
5. End Sub
7. '==========　⇩②　フォームの初期化（Activateイベント）　====================
8. Private Sub UserForm_Activate()
9. 　Dim Str1 As String
10. 　Str1 = "こんにちは　さようなら　1234567890 ABCDE"
11. 　Call Flowing_Form_1(Me.Frame1, Str1)
12. End Sub

図３－２

フォームが初めてLoadされる際に発生するイベントがInitializeイベントで、図３－２の２～５行目になります。
３行目は、フォーム上に配置したFrameの文字（Caption）を消すことで「枠線のみ」にし、「文字列の窓」っぽくしています。
また４行目は「フォームの停止・ループ処理の停止」を行うボタンの文字を「Stop」に変更しています。

フォームが表示された時に発生するイベントがActivateイベントで、図３－２の８～１２行目になります。
１０行目は、表示する文字列を設定しています。
１１行目は、図３－３の「Flowing_Form_1」プロシージャを呼び出しています。引数として、「書き込むFrame枠のオブジェクト名」を第一引数に、１０行目で設定した流れる「文字列」を第二引数に設定します。

３－２－２．Frame内で文字を流す処理

図３－２の１１行目から呼び出されるのが図３－３です。第一引数で「書き込むFrame枠のオブジェクト名」を、第二引数で「流す文字列」を受け取ります。

13. '==========　⇩③　文字列処理　====================
14. Sub Flowing_Form_1(Frm As Object, Str As String)
15. 　Dim MyCtrl As Object
16. 　Dim MyTime As Single
18. 　Set MyCtrl = Frm.Controls.Add("Forms.Label.1", "F_Label", True)
19. 　With MyCtrl
20. 　　.Caption = Str
21. 　　.Font.Size = Frm.Height * 0.6
22. 　　.WordWrap = False
23. 　　.AutoSize = True
24. 　　.Left = Frm.Width
25. 　　.Top = (Frm.Height - .Height) / 2
26. 　End With
28. 　Do
29. 　　MyCtrl.Left = MyCtrl.Left - 5
30. 　　DoEvents: DoEvents
32. 　　If MyCtrl.Left < -1 * MyCtrl.Width Then
33. 　　　MyCtrl.Left = Frm.Width
34. 　　End If
36. 　　mytime = Timer
37. 　　Do While Timer - mytime < 0.2
38. 　　　DoEvents: DoEvents
39. 　　Loop
40. 　Loop
41. End Sub

図３－３

まず、今回手法の考え方を図３－４で説明します。

図３－４

フォーム上に配置したフレームの中に、ラベルを作ります。そのラベルには文字列が記入されます。
フレームの中に含まれたコントロールは「フレーム部分しか見えず、他は隠れて」見えます。丁度、フレームが窓の様な役目になります。
この状態でフレームの位置は固定し、中のラベルだけを動かして行けば、あたかも文字が流れているように見える　というわけです。

１８行目は、Frameコントロール内にLabelを動的作成しています。
Addメソッドの第一引数には作成するコントロールのプログラム識別IDを指定します。今回は文字列を書き込みますのでLabelを指定しますが、プログラム識別IDでは「Forms.Label.1」という文字列になります。
第二引数には作るコントロールの名前を指定します。省略可能な引数ですし、Addの戻り値（Labelオブジェクト）が代入される変数MyCtrlを使ってその後の処理をしていますので、本当は設定不要です。今回「F_Label」と指定したのは説明のためです。
第三引数は、オブジェクトの表示（True）・非表示（False）を指定します。Trueが既定値ですので、これも今回省略しても問題ありません。

１８行目で作成したFrame内のLabelは、オブジェクトとしてMyCtrl変数に代入されます。そのLabelオブジェクトのプロパティ設定を２０～２５行目で行っています。

２０行目は、流す文字列をLabelに書き込み、２１行目では文字サイズをフレームの高さの60%に設定しています。これは「ワークシートのセルの高さと文字のサイズの比」が約60%であることから決めています。この値を60% → 100%にするとフレーム高さ一杯に文字が表示されます。

２２行目は折り返しを禁止（WordWrap = False）し、２３行目で文字列全体が表示される（AutoSize = True）ようにします。この設定をしないと、与えられた文字列が全て表示されない可能性があるため必須です。

２４～２５行目はラベルの位置の設定です。通常フォーム内に配置したラベルの位置はフォームの左上角を原点としていますが、フレーム内のラベルの場合はフレームの左上角を原点として位置決めします。
初期のラベル位置は、図３－５の通りフレームの右端位置に配置します。

図３－５

文字列を繰り返し動かす部分が、２８～４０行目のDo～Loop部分です。
まず２９行目では、流す文字を記入したLabelの左右方向位置を、「５ポイント」ずつ移動しています。このポイント数は大きくすると文字列が早く動きます。
３０行目の「DoEvents: DoEvents」は「DoEvents」を２回書いたのと同じ意味ですが、制御をO/Sに渡し、ユーザー側が操作できるようにしています。

３２～３４行目は、流す文字列の表示が終わってしまった時に、位置を戻すコードです。
３２行目は、Labelの左上角の左右方向位置（MyCtrl.Left）が、Labelの幅（MyCtrl.Width）よりも小さい時、というIf文です。Excelの座標は左上角を原点として、左右方向なら右側が＋になりますので、「MyCtrl.Width」には「－（マイナス）」が付いています。
つまり図３－６で分かる様に、Labelがフレームを外れたら（＝流す文字列が完了したら）３３行目を実行することになります。

図３－６

３３行目は図３－６の通り、Labelの位置をフレームの右側に移動させています。これは２４行目と同じコードですので初期位置にさせている事になります。

３６～３９行目は、時間調整です。
３６行目の右辺の「Timer関数」は、午前０時からの経過秒数をSingle型で戻すもので、１秒以下の時間を得ることが出来ます。ですので変数mytimeには「現在時刻（含１秒以下）」が代入されます。
３７行目はDo～Loopで、回している条件は「Timer - mytime < 0.2」です。これを図３－７で説明します。

図３－７

例えば、１つの処理に0.06秒かかるとします。時間は左から右に進んで行きます。
３６行目でTimer関数で時刻を計測し変数mytimeに代入していますが、これは図３－７の②に相当します。
Do～Loopに入り、３７行目では都度Timer関数で時刻を計測します。その時刻から元の時刻mytimeを引くことで、３６行目からの時間を得ることが出来ます。この時間を設定した「0.2秒」と比較をしています。
図３－７では、②～④までは0.2秒未満ですのでDo～Loopを抜けられません。⑤になると0.2秒を超えますのでDo～Loopを抜けて次の処理（２９行目に戻る）に移行します。

これにより、２９～３４行目の処理は「0.2秒ごとに実行」されるのです。
なお、ここでは説明上「処理に0.06秒かかる」としましたが、実際には（私のＰＣでも）もう１桁以上は早いです。例えば３０回まわっているとすると、Do～Loopで回っている時間は「0.2 ～ 0.2067秒」ですので、約３％の誤差ということになります
科学技術で３％は致命的ですが、流れる文字でしたら許される誤差と思われます。

またこの「0.2秒」の値を小さくすると「文字の流れはスムーズ」になりますが、その分マクロ側の「文字を動かす時間」が増えるため、アプリ側の使える時間が減るデメリットがあります。

３－２－３．文字を流す処理の停止

フォーム上のStopボタンを押すことで作動するプロシージャが図３－８です。

42. '==========　⇩④　停止処理　====================
43. Private Sub CommandButton1_Click()
44. 　Unload Me
45. 　End
46. End Sub

図３－８

４４行目でフォームを閉じます。今回は「Unload」を使っていますが、「Hide」で閉じてもＯＫです。但し「Unload」でも「Hide」でも、図３－３の２８～４０行目のDo～Loopは回り続けていますので、強制的に止める必要があります。
今回は４５行目の「Endステートメント」でマクロを停止させていますが、アプリ上これが不可能な場合は、停止フラグを使ってDo～Loopを停止させる必要があります。
図３－９は、フォームのモジュール変数Stop_Flagを使って、マクロを停止させています。

47. Dim Stop_Flag As Boolean　　　　　　 '←フォームモジュール変数として、先頭でフラグを宣言
49. Sub Flowing_Form_1(Frm As Object, Str As String)
50. 　Dim MyCtrl As Object
51. 　Dim MyTime As Single
53. 　Set MyCtrl = Frm.Controls.Add("Forms.Label.1", "F_Label", True)
54. 　With MyCtrl
55. 　　.Caption = Str
56. 　　.Font.Size = Frm.Height * 0.6
57. 　　.WordWrap = False
58. 　　.AutoSize = True
59. 　　.Left = Frm.Width
60. 　　.Top = (Frm.Height - .Height) / 2
61. 　End With
63. 　Do
64. 　　If Stop_Flag = True Then Exit Do　　　 '←TrueだったらDo～Loopを抜ける
65. 　　MyCtrl.Left = MyCtrl.Left - 5
66. 　　DoEvents: DoEvents
68. 　　If MyCtrl.Left < -1 * MyCtrl.Width Then
69. 　　　MyCtrl.Left = Frm.Width
70. 　　End If
72. 　　mytime = Timer
73. 　　Do While Timer - mytime < 0.2
74. 　　　DoEvents: DoEvents
75. 　　Loop
76. 　Loop
77. 　Stop_Flag = False　　　　　　　　 '←Do～Loopを抜け出たらFalseに戻す
78. End Sub
81. Private Sub CommandButton1_Click()
82. 　Unload Me
83. 　Stop_Flag = True　　　　　　　　　 '←Stopボタンを押したらフラグが立つ(True)ようにする
84. 　 'End　　　　　　　　　　　　　　　 '←Endステートメントは削除
85. End Sub

図３－９

４．②フォーム上で文字列を部分表示し流れるように見せる

４－１．フォーム上のコントロール配置

フォーム上に「ラベル（Label）」を図４－１の様に配置します。文字のフォントサイズはLabelコントロールの高さに比例させていますので、Labelを必要な高さに設定して下さい。

図４－１

文字を流れるように見せているのはDo～Loop処理を使用していますので、フォーム上にStopボタンを配置し、フォームの終了＋Do～Loop処理の停止を行っています。

４－２．フォームモジュールのコード

４－２－１．フォーム起動時の初期化

サンプルファイルでは、Sheet1の「②Form2」ボタンに登録されたマクロを経由し「UserForm2.Show」でフォームが起動されます。

86. '==========　⇩⑤　フォームの初期化（Initializeイベント）　====================
87. Private Sub UserForm_Initialize()
88. 　Me.CommandButton1.Caption = "Stop"
89. End Sub
91. '==========　⇩⑥　フォームの初期化（Activateイベント）　====================
92. Private Sub UserForm_Activate()
93. 　Dim Str1 As String
94. 　Str1 = "こんにちは　さようなら　1234567890 ABCDE"
95. 　Call Flowing_Form_2(Me.Label1, Str1)
96. End Sub

図４－２

フォームがLoadされる際に発生するイベントがInitializeイベントです。
８８行目では、マクロ停止処理用のCommandButtonの表面文字に「Stop」を記入しています。

フォームが表示された時に発生するイベントがActivateイベントです。
９４行目で、表示する文字列を設定しています。
９５行目は、図４－３の「Flowing_Form_2」プロシージャを呼び出しています。引数として、「表示するLabelオブジェクト名」を第一引数に、９４行目で設定した「表示する文字列」を第二引数に設定します。

４－２－２．Labelに文字列を流すように貼り付ける処理

図４－２の９５行目から呼び出されるのが図４－３です。第一引数で「表示するLabelオブジェクト」を、第二引数で「表示する文字列」を受け取ります。

97. '==========　⇩⑦　文字列処理　====================
98. Sub Flowing_Form_2(Lab As Object, Str As String)
99. 　Dim Str_count As Long　　　 '←Label内に表示する文字数
100. 　Dim MyTime As Single
101. 　Dim Spa As String　　　　　　 '←文字列の先頭に追加するスペース列
102. 　Dim i As Long　　　　　　　　 '←文字列から表示文字を切り出す先頭位置
104. 　Lab.Font.Size = Lab.Height * 0.6
105. 　Lab.WordWrap = False
106. 　Str_count = Lab.Width / Lab.Font.Size * 1.4
108. 　Spa = Application.WorksheetFunction.Rept(" ", Str_count)
109. 　Str = StrConv(Spa & Str, vbWide)
110. 　Lab.Caption = ""
111. 　i = 1
112. 　Do
113. 　　Lab.Caption = Mid(Str, i, Str_count)
114. 　　i = i + 1
115. 　　DoEvents: DoEvents
117. 　　If i > Len(Str) Then i = 1
119. 　　MyTime = Timer
120. 　　Do While Timer - MyTime < 0.5
121. 　　　DoEvents: DoEvents
122. 　　Loop
123. 　Loop
124. End Sub

図４－３

この「②フォーム上で文字列を部分表示し流れるように見せる」手法の考え方を図４－４で説明します。

図４－４

まずフォーム上に配置されたLabelに文字が何文字入るかの計算をし、その値を「Str_count」とします。
表示する文字列の先頭に、Str_count分のスペースを結合しておきます。
その結合した文字列の先頭から、Str_count分の文字列を取り出します。ある秒数ごとにその先頭位置を移動していき（図４－４では右端の ｉ＝〇〇）、Labelの文字を書き換えていきます。これにより、文字が流れている様に見える、というカラクリです。

１０４～１０６行目では、「Labelに何文字入るか」を計算します。
まず１０４行目では、文字サイズをLabelコントロールの60%に設定します。これは図３－３の２１行目と一緒ですが、「ワークシートのセル高さｔ文字のサイズの比」が約60%であることから決めてあります。この値を60%→100%にすると、Labelコントロール高さ一杯に文字が表示されます。
１０５行目は「文字列の折り返し」を無くす指示です。図３－３の２２行目と同様の処理です。

１０６行目は「Labelに入る文字数」を数えています。
１つの文字の横幅は、文字そのものによっても異なりますし、フォントでも違います。また全角・半角もありますし、文字間の間隔も様々です。この文字の横幅を決める要素の中で、最も差が大きいのは全角・半角だと思いますので、今回は「全て全角に揃える」ことでバラツキを少しでも抑えるようにしました。（１０９行目のStrConv(文字列,vbWide) 処理）

全角に揃えた上で、Labelの横幅（Lab.Width）を文字の縦サイズ（Lab.Font.Size）で割った値を基準としました。これは「全角文字は、およそ真四角」という大雑把な計算方法を使っています。
最後の「x 1.4 」は調整係数で、文字を実際に流してみて調整しています。

この調整係数を大きくすると、文字がLabelコントロール一杯に出てくるようになりますが、大きすぎると先頭に結合するスペースの量が増えてしまい「なかなか文字が出てこない」現象が発生してしまいます。
反対に調整係数が少ないと、文字はすぐ出てきますが、Labelの右端が空いてしまい、文字が途中から出てくるイメージになります。

１０８行目は、文字列の先頭に結合するスペースを作っています。ワークシート関数のRept関数を使用して、スペースをLabelの幅分（＝Str_count）繰り返して、変数Spaに代入しています。
スペースは、１０９行目で全て全角にしてしまうため、１０８行目では半角でも全角でもOKです。
１０９行目は、引数で与えられた文字列の先頭に１０８行目で作成したスペースを結合した上で、StrConv関数で全角に揃えています。

１１０行目は、Labelに既定値として設定されている「Label〇〇」という文字がフォーム起動時に見えてしまうため、「Caption = ""」と文字を消しています。この処理はフォームのActivateイベント内で行っても良いと思います。

１１１行目の「i = 1」の「i」は文字列を切り出す開始位置ですので、最左端の１としています。
これを「i = 2」（同時に１１７行目も、i = 2 に変更）に変更すると、フォームを起動した直後に最初の１文字が現れ、最後の文字が消えた直後に最初の文字が現れるようになります。ここは、趣味の問題なので設定自由です。

１１２～１２３行目はDo～Loopで処理停止するまで繰り返し実行する部分です。
１１３行目は、１０９行目で作った文字列（Labelの幅分のスペース＋引数で与えられた文字列）から、先頭をｉ番目、文字数はLabel幅分の文字数　を抜き出して、LabelのCaptionに代入しています。
文字を表示したら、次の表示のために１１４行目で「i = i + 1 」と、表示先頭位置を移動させています。

１１７行目では、文字列が一番最後の文字位置まで達したかを調べ、達していた（i < Len(Str)）ら、i を先頭（＝１）に戻しています。
この「<」を「<=」にしてしまうと、最後の文字が突然消えてしまい違和感が生じますので注意が必要です。

１１９～１２２行目は、待ちの時間調整です。①のUserForm１に於いては、この部分は「0.2」に設定したのですが、②の今回は「文字がジワジワ消えていくわけでは無い」ので、動くスピードを①と同じくらいに合わせる為に「0.5」にしました。
尚、②の文字列の一部を切り取ってLabelに貼り付ける方法では、文字が流れるスピードを調整するところは１２０行目しかありません。
この部分の詳細については、図３－３の３６～４０行目の説明を参照して下さい。

１２１行目、及び１１５行目の「DoEvents: DoEvents」は、Ｏ／Ｓ側に制御を渡している部分です。これを設定しないと「文字は流れても、それ以外の処理が出来ない」「ボタンも押せない」という、いわゆる無限ループになりますので、充分注意して下さい。

４－２－３．フォームの停止処理

フォーム上のStopボタンを押すことで作動するプロシージャが図４－５です。

125. '==========　⇩⑧　停止処理　====================
126. Private Sub CommandButton1_Click()
127. 　Unload Me
128. 　End
129. End Sub

図４－５

１２７行目でフォームを閉じます。今回は「Unload」を使っていますが、「Hide」で閉じてもＯＫです。
但し「Unload」でも「Hide」でも、図４－３のDo～Loopは回り続けていますので、強制的に止める必要があります。
今回は１２８行目の「Endステートメント」でマクロを停止させていますが、アプリ上これが不可能な場合は、停止フラグを使ってDo～Loopを停止させる必要があります。その方法については、図３－９を参照下さい。

５．③ワークシート上で文字画像を動かす

５－１．ワークシート側の準備

流れる文字を表示するセルを決め、セル幅・セル高さを整えます。表示される文字サイズは「セル設定の文字サイズでは無く」、セルの高さで決めています。
また、連続する複数セルでの表示も可です。またMerge（セル結合）も可ですが、図５－１の中の表示範囲設定（変数R）にはMerge先頭セルではなく結合している全てのセル範囲を指定して下さい。

５－２．標準モジュールのコード（Module１）

５－２－１．流れる文字列の呼出し

サンプルファイルでの「ボタンを押したら」呼び出されるのが、図５－１です。ここから、流れる文字列のプロシージャ（図５－２）を呼び出します。実際のシステムでは同様の機能を盛り込んで下さい。
なお終了する時は、フォームの場合と同様にEndステートメントを使用するか、または図３－９のような停止フラグの使用が必要です。

130. '==========　⇩⑨　流れる文字列の呼出し（Module１）　===================
131. Sub start1()
132. 　Dim Str As String
133. 　Dim R As Range
135. 　Str = "こんにちは さようなら　1234567890 ABCDE"
136. 　Set R = Sheet1.Range("b2")　　　 '←表示範囲設定
137. 　Call Flowing_Cell_1(R, Str)
138. End Sub

図５－１

１３５行目は、流す文字列を設定します。半角は半角として、全角は全角として表示されます。
１３６行目は、流す文字列の表示場所を設定します。連続している複数セル範囲も可です。Merge（セル結合）範囲も設定可ですが、ここでの範囲設定には全てのセル範囲を指定が必要です。

１３７行目は、その２項目（表示場所、流す文字列）を引数として、図５－２の「Flowing_Cell_1」プロシージャを呼出します。

５－２－２．流れる文字列作成（Module１）

図５－１の１３７行目から呼び出されるのが、図５－２です。第一引数として表示するセル範囲、第二引数として表示する文字列を受取ります。

139. '==========　⇩⑩　流れる文字列作成（Module１）　===================
140. Sub Flowing_Cell_1(R As Range, Str As String)
141. 　Dim MyCtrl As Object　　　　 '←表示する文字列を入れるﾃｷｽﾄﾎﾞｯｸｽ、及びそれを図形に変更した後のｵﾌﾞｼﾞｪｸﾄ
142. 　Dim sh As Shape　　　　　　　 '←シート上のShapeｵﾌﾞｼﾞｪｸﾄ（以前の文字図形を削除するため）
143. 　Dim Range_Width As Single　　 '←セル幅（Shape.widthの型に合わせSingle型で宣言）
144. 　Dim Sh_Width As Single　　　 '←図形文字の幅(ｾﾙに合わせて拡大･縮小する前の値)
145. 　Dim Start_Pos As Long　　　　 '←図形を切り出す開始位置
146. 　Dim MyTime As Single　　　　 '←待ち時間のｽﾀｰﾄ時刻
147. 　Dim Ratio As Single　　　　　 '←図形の拡大･縮小率
149. 　Application.ScreenUpdating = False
150. 　　For Each sh In Sheet1.Shapes
151. 　　　If sh.Name = "Flowing_Box" Then sh.Delete
152. 　　Next sh
154. 　　Set MyCtrl = Sheet1.Shapes.AddLabel (msoTextOrientationHorizontal, R.Left, R.Top, 100, 100)
155. 　　MyCtrl.TextFrame.Characters.Text = Str
156. 　　MyCtrl.TextFrame.AutoSize = True
158. 　　MyCtrl.Copy
159. 　　MyCtrl.Delete
160. 　　Set MyCtrl = Sheet1.Pictures.Paste
161. 　　MyCtrl.Name = "Flowing_Box"
163. 　　Sh_Width = MyCtrl.Width　　　　　 'サイズ変更前に幅を変数に代入
164. 　　Range_Width = R.Width
166. 　　MyCtrl.Height = R.Height　　　　 'ここで縦横比保持でサイズ変更
167. 　　Ratio = MyCtrl.Width / Sh_Width
168. 　　MyCtrl.Top = R.Top
169. 　　MyCtrl.Left = R.Item(R.Count).Offset(0, 1).Left
171. 　　Sheet1.Shapes(MyCtrl.Name) .PictureFormat.CropLeft = -1 * Range_Width / Ratio
172. 　　Sheet1.Shapes(MyCtrl.Name) .PictureFormat.CropRight = Sh_Width　　 '長い文章だと誤差大
173. 　Application.ScreenUpdating = True
174. 　Start_Pos = 0
176. 　Do
177. 　　On Error Resume Next
178. 　　　Sheet1.Shapes(MyCtrl.Name) .PictureFormat.Crop.PictureOffsetX = (Range_Width + Sh_Width * Ratio) / 2 - Start_Pos
179. 　　If Not Err.Number = 0 Then GoTo S_stop
181. 　　　Start_Pos = Start_Pos + 10
182. 　　　If Start_Pos >= (Range_Width + Sh_Width * Ratio) Then
183. 　　　　Start_Pos = 0
184. 　　　End If
185. S_stop:
186. 　　On Error GoTo 0
187. 　　DoEvents: DoEvents
189. 　　MyTime = Timer
190. 　　Do While Timer - MyTime < 0.5
191. 　　　DoEvents: DoEvents
192. 　　Loop
193. 　Loop
194. End Sub

図５－２

まず、図形（Shape）のトリミングについて図５－３で説明します。 図５－３ 通常のトリミングは、図５－３の左のように図形を内側に絞り込む形でトリミングします。トリミングした後は、絞り込まれたものが図形として操作できます。そのトリミング量は、上下左右の端からの「Crop〇〇」というプロパティ値で指定します。 この「Crop〇〇」プロパティ値は、PictureFormatオブジェクトに対して設定するものです。PictureFormatオブジェクトは、図形オブジェクトのPictureFormatプロパティを使用して得ます。具体的には、図形が「Sheet1.Shapes(1)」であった場合、「Sheet1.Shapes(1).PictureFormat」と「図形オブジェクト + .（ピリオド） + PictureFormat」のように指定します。 なお、トリミング量である「Crop〇〇」プロパティ値はプラス側だけではありません。例えば図５－３の右側のように「CropLeftをマイナス、CropRightをプラスの値に設定」すれば、最初の文字列を左側にオフセットした部分が表示されることになります。 つまり「図形の無い部分に図形を作る」みたいなことが可能で、これが今回の流れる文字に使っている方法です。 またトリミングは、図の元の大きさに基づいて計算されますので、図５－４のようにサイズ変更した後の図形をトリミングする場合は、元図のサイズに立ち返って値を決める必要があります。 図５－４ 尚、サイズ変更した後に「図をコピー」→「図で貼付け」をすれば、貼り付けた図の変形倍率は100%になりますので、見た目のポイント数でトリミング指示を出来ることになります。

１４９行目の「Application.ScreenUpdating = False」から１７３行目の「Application.ScreenUpdating = True」の間で、図形の作成・削除、及び図形のサイズ変更・移動等を行っています。ユーザーには不要な情報であり、パラパラと画面が動きますので画面更新をストップさせています。

１５０～１５２は、Sheet1上にある図形（Shape)を１つずつ調べ、「Flowing_Box」という名前だったら削除しています。この名前は１６１行目で自ら付けている名前ですので、「以前実行した流れる文字列の図形を削除」するという意味になります。
ここで、誰にでも思いつく様な名前を設定してしまうと、ユーザーが作った図形を削除してしまうことにもなりますので、注意が必要です。

１５４行目は、Sheet1上に「横書きのLabel図形」を作っています。引数の第２～第５引数は、何を設定してもＯＫです。とりあえず文字表示を行うセル近くに作成していますが、意味はありません。
１５４行目で作ったLabel図形は、オブジェクトとして変数MyCtrlに代入されており、１５５行目ではそのLabelの文字として引数Strである「流す文字列」を設定します。
１５６行目の「AutoSize = True」の設定で、文字サイズ（Excelのユーザー設定フォントサイズ）に合ったサイズに修正されます。またこの時に文字折り返しも無くなります。このAutoSize処置をしますので１５４行目でLabelを作る際、適当な大きさで許されるわけです。

１５８行目は、そのLabel図形をコピーします。
１５９行目は、Label図形を削除します。削除しても、１５８行目で行ったコピー内容はクリップボード上に残っています。
１６０行目は、そのクリップボードの内容（＝Labelの文字列）を「画像として」貼り付けます。画像ですので戻り値はPicture型としてオブジェクトがMyCtrlに代入されます。
１６１行目で、その画像に名前「Flowing_Box」を付けます。この名前は、次に実行する時に削除対象（１５１行目）になります。

１６３行目は、図形としての文字列の幅を取得し、変数Sh_Widthに代入しています。この段階では、文字列の図形は元図のサイズですので、このSh_Width値をトリミングに使用します。 １６４行目は、表示セルの幅を取得し変数Range_Widthに代入します。この値も、図５－５のように「CropLeft」の値として使用したいのですが、このままでは使えません。

図５－５

この時点での文字列図形は、この後（１６６行目）の処理で表示セル高さにサイズ変更されてしまうからです。（図５－６）
「トリミング量は元図の大きさで計算」しますので、Sh_Widthの方は大丈夫なのですが、Range_Widthをそのまま使ってしまうと、図５－６では一点鎖線で示すように、正しくトリミング出来ないことになります。

図５－６

ですので、サイズ変更をした後に再度文字列図形の幅（MyCtrl.Width）を取得し、元図の幅（１６３行目で取得）との比を変数Ratioとします（１６７行目）。
そして、文字列図形のトリミングの「CropLeft」には、１６４行目のRange_WidthとRatioを使って「サイズ変更前相当の表示セル幅」に換算した後、その値を指定するようにしています。

１６６行目では、表示セル高さに合わせて「文字列図形のサイズ変更」をしています。
初期状態では「図形の縦横比保持（LockAspectRatio = msoTrue）」になっているため、比例して横幅も変更されます。
安心のためには、変形前に「LockAspectRatio = msoTrue」のコードを実行しておいた方が良いかもしれません。

１６７行目は前述しましたが、元図形の幅（Sh_Width）とサイズ変更後の幅（MyCtrl.Width）の比を取り、変数Ratioに代入します。このRatio値は、トリミング時のみではなく、図５－５の「Crop.PictureOffsetX」（トリミング範囲～文字列図形の距離）の計算にも使用します。

１６８行目は、文字列図形の上下方向を表示セルに合わせます。
１６９行目は、左右方向を表示セルの一つ右のセルに初期値として合わせます。これは、１７６行目以降のDo～Loopで文字列図形を少しずつ移動していくのですが、指定した文字列の先頭が表示セルの右端から順次現れるようにするため、初期状態としては文字列先頭を右隣のセルとの境目に置いているのです。
また、右隣のセルに配置するのであれば「R.Offset(0, 1).Left」で良いのですが、もし「表示セルを複数セルに指定」された場合は「R」は先頭のセル位置（一番左のセル）を指しますので、表示がおかしくなります。
ですので、複数セル指定された場合でも対応できるように「R.Item(R.Count).Offset(0, 1).Left」と、指示された表示セルの一番右「R.Item(R.Count)」を基準として、その右隣のセルを指定するようにしました。

１７１行目は「CropLeft」を設定します。設定量としては「マイナスの表示セル幅」ですが、元画像の大きさを基に考える必要があります。セル幅（Range_Width）を画像サイズ変更比（変数Ratio）で割った値が「元画像に於けるセル幅相当の寸法」になりますので、「Range_Width / Ratio 」を設定します。また「マイナス」にするため、「－１」を掛けます。

１７２行目は「CropRight」の設定です。これも元画像を基に考えます。１６３行目では「画像のサイズ変更前に」画像の幅を取得していますので、その値を直接CropRightに設定することで「トリミングした結果は、表示セル範囲」となります。

ちなみに、今回は「CropTop」と「CropBottom」については設定していませんので、１５４～１５６行目で作った「テキストボックス」のフォントサイズとテキストボックスの高さの関係のまま、となっています。ですので、流れる文字列の上下が空いたような感じになります。
もし隙間を詰めたいのであれば、テキストボックス段階でフォントサイズと高さを取得し上下方向もトリミングをするか、または、１６６行目でサイズ変更をする際に大きめの画像にし、貼り付ける位置を調整することが必要になります。

１７３行目では流れる文字列を見せるために、１４９行目の「Application.ScreenUpdating = False」での画面更新停止を解除しています。
また１７４行目では、以降で文字列画像を動かして流れる文字相当にするための移動量「Start_Pos」の初期化を行っています。尚、このStart_Posの変数宣言（１４５行目）時で既にゼロが初期値になっていますので、このコードは実行しなくても影響ありませんが、明示的に記載しました。

ここまでで、形としては図５－５のような「流れる文字が始まる直前」の状態になりました。
１７６～１９３行目のDo～Loopで、文字列画像を少しずつ動かして「流れる文字列」に見えるようにしていきます。

１７７・１７９・１８５・１８６行目の「エラー処理」については、後でまとめて説明します。まずは、文字列を流すための処理について説明します。

１７８行目は、文字列画像の「画像本体の位置とトリミング位置とのズレ量」を「Crop.PictureOffsetX」で指定します。
その関係は図５－７で示す通り、「トリミング中心」と「画像本体の中心」のズレ量を、「サイズ変更後の画像基準」で表します。トリミング量の時とは異なる基準ですので注意が必要です。

文字列画像の開始時は、図５－７の左側の状態です。「Crop.PictureOffsetX」は、「トリミング中心」と「画像本体の中心」の距離ですので、「(Range_Width + Sh_Width * Ratio) / 2」となります。

図５－７

その初期状態から徐々に文字列図形を左に動かすには、図５－７の右図の中の「X」の値を徐々に増やしていけば良いことがわかります。この「X」が、１７８行目の一番右の「Start_Pos」になります。
Start_Posは、１７４行目でゼロと初期化していますので、Do～Loopの中で徐々に増えていくように１８１行目で「Start_Pos = Start_Pos + 10」としています。この「10」が増分で、値を大きくすれば早く動くように見えます。

どんどん「Start_Pos」（＝ X ）を大きくしていくと、その内表示する文字列図形がトリミング範囲から見えなくなります。図５－８のような状態です。

図５－８

外れたか否かは、図５－８の「Range_Width」と「Sh_Width * Ratio」を足した値より、X（＝Start_Pos）が大きくなったか否かを調べれば良いことが分かります。
ですので１８２行目では If文で判断し、文字列図形が外れたら「Start_Pos」値を初期状態（１７４行目と同じ状態）に戻してあげれば、次に１７８行目を実行する時には、文字列図形は図５－７の左側の状態になることになります。

１８９～１９２行目は時間待ち調整で、ここでは「0.5秒ごと」に文字列図形を移動させています。この値を小さくすれば「流れがスムーズに」また「流れが速く」なりますが、逆にユーザー側が使える時間が減ります。

さて「エラー処理」についてです。
この文字列図形の移動は、１７８行目の「Sheet1.Shapes(MyCtrl.Name).PictureFormat.Crop」オブジェクトの「PictureOffsetX」プロパティ値を変更させ続けることで実現しています。
この処理をしている（＝文字が流れている）最中に、どこかのセルを「編集モード」にすると、図５－９のようなエラーが発生します。コメントを読むと「Cropオブジェクトの使用が拒否された（＝文字列図形の移動を邪魔された）」ためのようです。

図５－９

エラーの回避方法としては「On Error GoTo 〇〇」や「On Error Resume Next」がありますが、「オブジェクトにアクセスするときは、On Error Resume Next を使用（Microsoftのサイトより）」しなければならないため、１７７行目で「On Error Resume Next」を使用しています。
実際に試してみても、確かに「On Error GoTo 〇〇」ではエラー回避が出来ませんでした。

では、エラーが出た（＝ユーザーがセル操作をした）場合に「流れる文字をどうしておくか」を考える必要があります。２つの方法があると思い、１つ目は「流れる表示を停止し、ユーザー操作が完了したら再開する」方法、２つ目は「文字は裏で動かしておき、ユーザー操作が完了したら再開する」方法です。
２つ目の方法は「操作完了した瞬間、流れる文字の位置が大きく変わる」ことから「ユーザーには異様に見える」と判断し、１つ目の方法を取ることにしました。

そのためには、エラーが出ている間に「Start_Posを進めない」ことが必要になるため、１７８行目で発生したエラーの番号を１７９行目で調べ、ゼロ以外（＝エラーが出ている状態）だったら「S_stop」に飛ぶようにしました。
こうすることで、１８１行目の「Start_Pos = Start_Pos + 10」が実行されず「Start_Posを進まない」ことになります。
なお１８２～１８４行目は、Start_Posが動かない限り実行する必要はありませんので、その先に「S_stop」を設けています。

１８６行目で「On Error GoTo 0」としているのは、１７８行目のエラー発生時に「他の行でのエラーを捕まえられなくならないように」毎回（＝0.5秒ごと）エラー解除させています。

なお、今回は「Crop.PictureOffsetX」の値を使って文字列図形のみを動かす方法を取りましたが、他の方法もあります。例えば、文字列図形を動かす部分だけを記述すれば、図５－１０のようになります。

195. Start_Pos = 0
196. Do
197. 　With Sheet1.Shapes(MyCtrl.Name)
198. 　　.IncrementLeft -10
199. 　　.PictureFormat.CropLeft = (-1 * Range_Width / Ratio) + Start_Pos + 10
200. 　　.PictureFormat.CropRight = Sh_Width - Start_Pos - 10
201. 　End With
202. 　Start_Pos = Start_Pos + 10
203. Loop

図５－１０

この手法は図５－１１のように「IncrementLeft」を使って図形として全体を動かし、動かしたあとでトリミングをやり直すという方法です。

図５－１１

どちらの方法でも、見た目はあまり変わりません。理解し易いやり方が良いと思います。

６．④ワークシート上で文字列を部分表示し流れるように見せる

この手法は、②の「フォーム上で文字列を部分表示」する方法のワークシート版です。似たような部分が多くありますので、そちらも参照下さい。

６－１．ワークシート側の準備

流れる文字を表示するセルを決め、セル幅・セル高さを整えます。表示される文字サイズはセルのフォントサイズに従いますので、フォントサイズを先に決めてからセル高さを調整した方が良いかもしれません。
また、複数のセルに表示させる場合は、セル結合（Merge）してください。またセル結合した全てのセル範囲を指定して下さい。

６－２．標準モジュールのコード（Module２）

６－２－１．流れる文字列の呼出し

サンプルファイルでの「ボタンを押したら」呼び出されるのが、図６－１です。ここから、流れる文字列のプロシージャ（図６－２）を呼び出します。実際のシステムでは同様の機能を盛り込んで下さい。
なお終了する時は、フォームの場合と同様にEndステートメントを使用するか、または図３－９のような停止フラグの使用が必要です。

204. '==========　⇩⑪　流れる文字列の呼出し（Module２）　===================
205. Sub start2()
206. 　Dim Str As String
207. 　Dim R As Range
209. 　Str = "こんにちは　さようなら　1234567890 ABCDE"
210. 　Set R = Sheet1.Range("b4")
211. 　Call Flowing_Cell_2(R, Str)
212. End Sub

図６－１

２０９行目は、流す文字列を設定します。半角文字で設定しても、文字は全て全角に修正されて表示されます。これはセル幅に入る文字数の計算を簡単にするためです。
２１０行目は、流す文字列の表示場所を設定します。Merge（セル結合）範囲も設定可ですが、全てのセル範囲を指定が必要です。
２１１行目は、その２項目（表示場所、流す文字列）を引数として、図６－２の「Flowing_Cell_2」プロシージャを呼出します。

６－２－２．流れる文字列作成（Module２）

図６－１の２１１行目から呼び出されるのが、図６－２です。第一引数として表示するセル範囲、第二引数として表示する文字列を受取ります。

213. '==========　⇩⑫　流れる文字列作成（Module２）　===================
214. Sub Flowing_Cell_2(R As Range, Str As String)
215. 　Dim Str_count As Long　　　　　 '←表示セルに収まる文字数
216. 　Dim Sp As String　　　　　　　 '←文字列の先頭に結合するスペース文字
217. 　Dim MyTime As Single　　　　　 '←待ち時間のｽﾀｰﾄ時刻
218. 　Dim Start_Pos As Long　　　　　 '←文字列を切り出す開始位置
220. 　Str_count = R.Width / R.Font.Size * 0.9
221. 　Sp = Application.WorksheetFunction.Rept(" ", Str_count)
222. 　Str = StrConv(Sp & Str, vbWide)
223. 　Start_Pos = 1
224. 　Do
225. 　　On Error Resume Next
226. 　　R.Value = "'" & Mid(Str, Start_Pos, Str_count)
227. 　　If Not Err.Number = 0 Then GoTo S_stop
229. 　　Start_Pos = Start_Pos + 1
230. 　　If Start_Pos > Len(Str) Then Start_Pos = 1
231. S_stop:
232. 　　On Error GoTo 0
233. 　　DoEvents: DoEvents
235. 　　MyTime = Timer
236. 　　Do While Timer - MyTime < 0.5
237. 　　　DoEvents: DoEvents
238. 　　Loop
239. 　Loop
240. End Sub

図６－２

２２０行目では、表示セルに入る文字数を計算しています。文字そのものやフォントにより文字幅は異なりますので、概算になります。
求め方としては、表示セル幅を表示セルのフォントサイズで割った値を使っています。式の最後の「ｘ0.9」は調整代で、実際に文字を流してみて調整しています。
代入する先の変数「Str_count」は２１５行目でLong型として宣言していますので、２２０行目の右辺で小数点が出ても切り捨てられる事になります。

２２１行目は、ワークシート関数の「Rept」を使って、スペース（今回の場合あとで全角変換するので、半角でも全角でもOK）を「表示セルに入る文字数分（Str_count）」結合し、変数Spに代入します。
２２２行目では、そのSp（スペース x 表示セルに入る文字数）を引数Str（表示する文字列）の先頭に結合し、全てを全角に変換しています。（図６－３）

図６－３

なお、全てを全角に変換している理由は、セル内表示の幅をできるだけ一定にするためです。

２２３行目で、文字列を切り出す位置（変数Start_Pos）の初期化をします。
そして、２２４～２３９行目のDo～Loopの中で、文字列の切り出し位置を順次変えていきます。

Do～Loop中の、２２５・２２７・２３１・２３２行目のエラー処理は、③のエラー処理と全く同じです。表示するセル位置（引数R ）はRangeオブジェクトですので、前述の通り「On Error Goto S_stop」は使えません。ですので２２５行目では「On Error Resume Next」を使う必要があります。
尚、Rangeオブジェクトで発生するエラーは図５－９とは少し異なり、図６－４となるようです。

図６－４

２２６行目は「Mid(Str, Start_Pos, Str_count)」で、文字列StrをStart_Pos番目の文字からStr_count個分切り取ります。それを表示セルの値（R.value）に代入します。
なお、切り出した文字列が「１２３４５」の様な全角の数字だけだった場合、セルにそのまま貼り付けると「数値と判断されて半角の数値」になってしまいます。今回は「全角の文字列として表示」しようとしているのですから、全角として表示されるように先頭に「'（シングルクォーテーション）」を付けています。

２２９行目は、切り出し位置を１つ移動するために「Start_Pos = Start_Pos + 1」とStart_Posの値を１つ増やしています。
２３０行目は、文字列の切り出し位置であるStart_Posが（先頭のスペースを含めた）表示文字列の文字数を超えたら、表示は完了です。折り返して再び先頭からの文字表示を繰り返すべく、「Start_Pos＝１」と再設定しています。

２３５～２３８行目は、他方法と同様の時間調整です。

７．最後に

４種を紹介しましたが、実用に耐えられるかと聞かれれば、どれも苦しいかもしれません。
しかしその中でフォーム上で文字を流す方式（①と②）は、ウラでDo～Loopが動いているにも関わらずマウス形状に変化が無く違和感が無いので、これを元に工夫すると良いものになる気がします。

一方、ワークシートのセルに文字を流す方（③と④）は、マウスの形状が目まぐるしく変わり「ウラでDo～Loop」が動いているのが結構気になりました。
年中流し続けるのではなく、OnTimeで「時々、文字が流れる」とか、「しばらく入力していないと文字が流れる」くらいが、ユーザーの作業の邪魔をせず、実用的なのかもしれません。


流れる文字列（it-035.xlsm）

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