Excelマクロ Excel2016でmsgbox表示前のグラフ描画がうまくいかない

Question

発生している問題

VBAで「グラフを作成・加工し、その良し悪しをmsgbox上で判定する」というマクロを作っています。
Excel2013ではうまくいっていたのですが、Excel2016になってから「msgbox表示の際に、グラフ描画処理が終わっていない」という問題が発生しています。

具体的な処理内容は以下の3つです。

1. 散布図の作成
2. 散布図のうち、1点のマーカーサイズを大きくする
3. Yes/Noのmsgboxを表示

問題は、3でmsgboxが表示される時、表示されているグラフが2の処理をされていないことです（参考図1）。
なお、msgboxを閉じると、描画処理後のグラフが表示されます（参考図2）。

Sub Macro2()
'
' Macro2 Macro
'

    '1. 散布図の作成
    Range("B4:C10").Select
    ActiveSheet.Shapes.AddChart2(240, xlXYScatter).Select
    ActiveChart.SetSourceData Source:=Range("Sheet1!$B$4:$C$10")
    ActiveChart.FullSeriesCollection(1).Select
    With Selection
        .MarkerStyle = 8
        .MarkerSize = 4
    End With
    
    '2. 散布図のうち、1点のマーカーサイズを大きくする
    ActiveChart.FullSeriesCollection(1).Points(2).Select
    Selection.MarkerSize = 10
    
    '3. Yes/Noのmsgboxを表示
    ans = MsgBox("グラフチェック", vbYesNoCancel, "描画の良し悪しの判定")

End Sub

試したこと

・ステップ実行する　→正常に動作する
・MsgBoxの前にDoEventsを入れる　→変わらない
・MsgBoxの前にwait処理を入れる　→変わらない

https://teratail.com/questions/105469
Excel2016で発生したこと、ステップ実行でうまくいくことから、こちらの事例と近いのではないかと考えました。
「タイミングの問題でうまくいかない」という指摘から、MsgBoxの処理を遅らせようとしましたがうまくいきませんでした。

以上の問題に対し、解決策をご教示いただければ幸いです。

参考図

図1：msgbox表示時のグラフ（マーカーサイズがすべて同じ）

図2：msbboxを閉じた後のグラフ（1点のマーカーサイズが大きい）

Answer 1

同じ環境がないので勘になりますが、グラフ処理のあと（MsgBoxの前）で再描画してみたらどうでしょうか。

    '2. 散布図のうち、1点のマーカーサイズを大きくする
    ActiveChart.FullSeriesCollection(1).Points(2).Select
    Selection.MarkerSize = 10

    ActiveChart.Refresh ' 再描画

    '3. Yes/Noのmsgboxを表示
    ans = MsgBox("グラフチェック", vbYesNoCancel, "描画の良し悪しの判定")

これだけでダメなら実施済みのDoEventsなどと組み合わせてみてください。

Comments

[bibu358]

早速ありがとうございました！
ActiveChart.Refreshのみでは解決しませんでしたが、2つのDoEventsで挟むことでうまく表示されるようになりました。

'2. 散布図のうち、1点のマーカーサイズを大きくする
ActiveChart.FullSeriesCollection(1).Points(2).Select
Selection.MarkerSize = 10
DoEvents
ActiveChart.Refresh
DoEvents

DoEventsをまだ理解していないので怪しい対策ですが、現象としては解決いたしました。
大変ありがとうございました。