Обновление Chart - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Обновление Chart (Макросы/Sub)

Обновление Chart

Inkubus

Дата: Четверг, 03.06.2021, 10:49 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 1 ±

Замечаний: 20% ±

Добрый день.
У меня в ChartObjects изменяется количество точек ряда:

Worksheets(1).ChartObjects("Диаграмма 4").Chart.SeriesCollection(1).XValues = Worksheets(1).Range("H5:H" & kolalf + 4)
Worksheets(1).ChartObjects("Диаграмма 4").Chart.SeriesCollection(1).Values = Worksheets(1).Range("G5:G" & kolalf + 4)

После этого пользователь должен кое-что выбрать. Я делаю сообщение MsgBox:

AlfaOK = MsgBox("Какое Alfa желаете принять?" , vbOKCancel)

И вот когда это сообщение для выбора того или иного варианта висит, у меня график, у которого я перед этим изменил количество точек ряда, не обновился.
Он обновляется только после завершения макроса. А мне необходимо, чтобы при выборе пользователь видел обновленный график. Как можно добиться обновления графика при MsgBox ?
Пробовал вставлять перед MsgBox:

Worksheets(1).ChartObjects("Диаграмма 4").Chart.Refresh

и

ActiveWorkbook.RefreshAll

Не помогает. Как можно это исправить ?
Заранее спасибо!!!