Graph em uma forma de acesso

Question

Eu tenho algum código no momento para desenhar um gráfico com base nos valores de uma série de caixas de texto em um formulário de acesso.

Estou feliz com o código e como ele funciona, mas eu não estou convencido de que é a maneira mais eficiente de fazer isso. O gráfico demora cerca de 1,2 segundos para redesenhar cada vez. O formulário é desacoplado por isso está apenas começando os valores das caixas de texto. Apenas para verificar que eu comecei a percorrer e despejar os valores caixas de texto para Debug.Print e que fez isso instantaneamente por isso não pode ser isso.

Eu suspeito que ele está tentando redesenhar o gráfico depois de cada valor é adicionado. Existe uma maneira mais rápida de fazer isso no VBA ou estou preso com ele?

'**************************
        '** 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

Obrigado por sua ajuda

Answer 1

Seria possível para você adicionar os valores de uma tabela e gráfico que?