Grafico su un modulo di accesso

Question

Al momento ho del codice per disegnare un grafico basato sui valori di una serie di caselle di testo in un modulo di accesso.

Sono contento del codice e di come funziona, ma non sono convinto che sia il modo più efficace per farlo. Il grafico impiega circa 1,2 secondi per ridisegnare ogni volta. Il modulo non è associato, quindi ottiene solo i valori dalle caselle di testo. Solo per verificare ho avuto modo di scorrere e scaricare i valori delle caselle di testo su debug.print e lo ha fatto all'istante, quindi non può essere quello.

Sospetto che stia cercando di ridisegnare il grafico dopo aver aggiunto ciascun valore. Esiste un modo più rapido per farlo in VBA o sono bloccato con esso?

'**************************
        '** Draw the Call Deviation graph **
        '**************************
        .cells(1, 1) = "Start Time"
        .cells(1, 2) = "Deviation"
        lRT_actual = 0
        lRT_forecast = 0
        For i = 1 To 48
            lRT_actual = lRT_actual + Me.Controls("txtActual_" & i)
            lRT_forecast = lRT_forecast + Me.Controls("txtForecast_" & i)
            .cells(i + 1, 1) = Format(DateAdd("n", (i - 1) * 15, "08:00:00"), "HHMM")

            .cells(i + 1, 2) = lRT_actual - lRT_forecast

            If Me.acxProgress_bar.Value + 2 < 100 Then
                Me.acxProgress_bar.Value = Me.acxProgress_bar.Value + 2
            Else
                Me.acxProgress_bar.Value = 90
            End If
        Next i

Grazie per l'aiuto

Answer 1

Sarebbe possibile aggiungere i valori a una tabella e rappresentarli graficamente?