Диаграммы VBA не обновляются с refre sh .all или если я l oop через диаграммы - PullRequest
1 голос
/ 27 марта 2020

Здравствуйте. Я пытаюсь написать скрипт, который будет вызывать функцию для обновления sh графиков каждые 30 секунд. Первая предоставленная функция работает, просто сообщая машине запускать мою другую функцию «RefreshCharts» через 30 секунд. Однако проблема в моей подпрограмме RefreshCharts заключается в том, что при запуске сценария диаграммы не обновляют sh. Сначала у меня просто была функция, в которой была только refre sh .all, но она не обновляла диаграммы, хотя когда я записывал макрос в excel, это то, что он давал мне, и тогда он работал, но не при обновлении данные (данные извлекаются с отдельного листа), прямо сейчас я попытался провести l oop через каждый график в рабочей книге и попытался выяснить, обновятся ли они, если я напишу, что они должны обновить sh в l * 1008. * но все же они не обновляются. Ниже приведен код, который я использую, любая помощь будет принята с благодарностью.

Sub myTime()

    Application.OnTime Now + TimeValue("00:00:30"), "RefreshCharts"


End Sub

Sub RefreshCharts()

    Workbooks.Open Filename:="C:\Users\mansah57\Desktop\Malek Excel\refresh\2019 EXCEL Filling Daily Production Tracking.xlsx"
    Dim myChart As ChartObject
    For Each myChart In ThisWorkbook.Charts
        myChart.Chart.Refresh
        'Debug.Print "hit"
    Next myChart
    Application.ScreenUpdating = True
    Workbooks("2019 EXCEL Filling Daily Production Tracking.xlsx").Close SaveChanges:=False
    Call myTime

End Sub
...