遅延付きExcelチャートの動的更新

Question

Excel VBAを使用して計測器からデータラインを読み取りました。 私は、Excel Active Chart上でデータを読み込んだ後すぐに、そのデータを動的にプロットしたいと考えています。 私は5秒ごとにデータを待つ必要があり、その間にVBA Application.WaitコマンドかKernel32 Sleepコマンドを使ってスリープ状態にします。 どちらの場合でも、アクティブチャートは更新されません。完全なプロットは、最後の「スリープ」の後にのみ現れます。 ご意見をお待ちしております。ここで

は、画面が更新されないように簡略化されたコード

Sub New_Data(indx) 
Dim x As Integer 

While True 

    x = Read_Instrument(1) 
    y = Read_Instrument(2) 
    Cells(indx, 1) = x 
    Cells(indx, 2) = y 

    ActiveSheet.ChartObjects.Item(1).Activate 
    ActiveChart.FullSeriesCollection(1).XValues = "=Sheet1!$A$1:$A$" & indx 
    ActiveChart.FullSeriesCollection(1).Values = "=Sheet1!$B$1:$B$" & indx 

    indx = indx + 1 
    Sleep 5000 'Use the KERNEL32 Sleep function for 5000 milliseconds 
Wend 
End Sub 

Answer 1

WaitとSleepは、VBAの実行を継続しますです。 これらの行に沿ってApplication.OnTimeを使用してみてください（標準コードモジュール、つまりModule1）。

Sub refreshMyChart() 
    Dim indx as long: indx = sheet1.Cells(Rows.Count, 1).End(xlUp).offset(1) 

    Cells(indx, 1) = Read_Instrument(1) 
    Cells(indx, 2) = Read_Instrument(2) 

    With Sheet1.ChartObjects(1).FullSeriesCollection(1) 
    .XValues = "=Sheet1!$A$1:$A$" & indx 
    .Values = "=Sheet1!$B$1:$B$" & indx 
    End With 

    ''''' Now Schedule the same routine for 5 seconds later'''''''''' 
    Application.OnTime Now + TimeSerial(0,0,5), "refreshMyChart" 
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
End Sub 

p.sは、あなたが停止するか、合理的な表示されるデータ行の数を保つために、古い行を削除するにはいくつかの方法を定義する必要があります。..このデータは無限に成長できないことに注意してください.:。

Answer 2

優秀！どうもありがとうございました。 私は.OnTime構造体を認識しませんでした Application.OnTime Now + TimeSerial（0、0、5）、 "refreshMyChart" とVBAが再帰ルーチンを許可するという事実。 ループを終了するには、そこにコードがありますが、問題に関連していないため投稿しませんでした。ここでは、再び

おかげ場合 た場合のInt（CURRENT_INDEX/nmeasure）* nmeasure> finalvalその後 のMsgBox（ "測定終了"） 出口サブ 終わりです。