VBAでデータを参照してグラフアニメーションを作成する方法

Question

excelでVBAを使用し、
『もともと存在するデータを元にグラフ（スピードメータ）を動かす』　といった主旨のものを作成しております。

データが100ms間隔で取得したものなので、VBA上のデータ読み込みも100msで行っています。

現状のプログラムでも意図した動作は実現できているのですが、グラフが変化がカキカキしており滑らかに動きません。
グラフは下記のページのサンプルを使用させていただいております。
http://norih.s17.xrea.com/popgraph.htm

値を手入力してグラフを動かすと滑らかに動くのですが、
VBAで下記プログラムを使い、
グラフが参照している表に値を入力　→　グラフを更新するという流れをとると、グラフの変化が動きがカキカキしてしまいます。

滑らかに動かす方法もしくは、グラフを元にしてスピードメータやボリュームバー等を動作させるVBA以外のツールをご存じでしたらご教示ください。

Option Explicit

Dim milli As Long               'ミリ秒
Dim last_milli As Long          '時間差測定用
Dim milli_count As Long         '100ms毎にカウントアップ
Dim speed As Long               '読み込み値


Sub グループ化2050_Click()
    Dim cht As chart
    Set cht = ThisWorkbook.Sheets("グラフ&メーター").ChartObjects("speed_chart").chart
    
    '動きが滑らかになるかと思って追加してみた---------------------
    cht.Refresh
    DoEvents
    DoEvents
    '---------------------------------------------------------------
    
    Do While milli_count < 200          'データはとりあえず200個読む
    
        milli = GetMilliSecond          '別モジュールで時間計測（ミリ秒）
        
        If milli - last_milli > 100 Then　　　’100msでデータを読み込み
            speed = ThisWorkbook.Worksheets("sheet1").Cells(milli_count + 2, 12).Value　　’順番にデータを読む
            Sheets("グラフ&メーター").Cells(15, 2) = milli_count
            Sheets("グラフ&メーター").Cells(10, 2) = speed　　　　　　　　　　　　　　　　　’表にデータを入力
            milli_count = milli_count + 1　　　　　　　　　　　　　　　　　　　　　　　　　　’読み込むデータの行番号を更新
            last_milli = milli
            cht.Refresh　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　’グラフを更新
            DoEvents
            DoEvents
        End If
    Loop
    
End Sub

Comments

[kitasue]

(1) DoEventsを２つ並べているのはなぜですか？
(2) なぜ、DoEventsを入れると、動きが滑らかになるのでしょうか。

[uimaro]

kitasue様
＞＞(1) DoEventsを２つ並べているのはなぜですか？
(2) なぜ、DoEventsを入れると、動きが滑らかになるのでしょうか。
下記ページを参考にしております。
シート側に制御を渡すためのようですが、2回入れる理由はわかりません。
ただ、1回だけではグラフ描写が更新されませんでした。
https://tonari-it.com/excel-vba-chart-setsourcedata/

Answer 1

私のテストでもDoEvents２回では、１データおきにしか更新されませんでした
４回にすれば何とか動きました。

回数で調整するしかないのかな？

 DoEvents
 DoEvents
 DoEvents
 DoEvents