なろう小説自動読上げマクロを改善しました。
最近、Excel上で本文を読んでいて画面から文章が外れて読めなくなるたびにスクロールしなければならないことに煩わしさを感じていたので、文章を貼り付けながら自動でスクロールするようにしてみました。
「本文取得」部分に３行追加するだけです。（赤字部分）
================================
・
・
・
'本文取得
・
・
・
For Each oAl In larr
If gEndFlg = True Then lNextFlg = False: Return
If oAl <> "" Then
oAl = oAl & "……"
lTimer = "00:00:" & (Len(oAl) / 3.9) \ 2
ThisWorkbook.Activate
oWs.Activate
ActiveWindow.SmallScroll Down:=1
oWs.Cells(lRow, 1).Value = oAl
oWs.Cells(lRow, 1).Copy
lRow = lRow + 1
lSt = Now()
Do While lTime < lSt + TimeValue(lTimer)
lTime = Now()
DoEvents
Loop
End If
Next
・
・
・
================================
～なろう小説自動読み上げマクロシリーズ～
その１ 概略
その２ マクロ
その３ カクヨムに対応
その４ 自動スクロールに対応 ←本ページ
その５ 連続実行