画像の表示方法

Question

#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If
Sub test()

Range("i1").Select
ActiveSheet.Pictures.Insert("C:\Users\naoya\Pictures\1.jpg").Select

Call アクティブシートの画像をすべて削除する
End Sub

Sub アクティブシートの画像をすべて削除する()
Dim 画像 As Shape

Sleep 3000
For Each 画像 In ActiveSheet.Shapes
    画像.Delete
Next
    
End Sub

sleepを入れると画像を表示するまえにスリープしてしまい、表示されません。
画像を表示したり消したりをしたいのですが、いい方法はありますか？

Answer 1

すみません。検討違いな回答をしてしまいました。
sobueさんの前回の質問を拝見したのですが、フラッシュ暗算を作成したいのですね。
であればApplication.ScreenUpdatingを活用すれば実現できると思います。（私の環境では成功しました）

ActiveSheet.Pictures.Insert("C:\Users\naoya\Pictures\1.jpg").Select

'画像挿入後に画面更新
Application.ScreenUpdating = True

'呼び出し元にも画面更新処理を入れる
Sub Main()
    
    Call test
    Application.ScreenUpdating = True
    
    Call test
    Application.ScreenUpdating = True
    
    Call test
    Application.ScreenUpdating = True
    
End Sub

Comments

[sobue]

sleepなどいれないときはできるのになぜ入れたらできなくなるのですか？

[N-u-u]

プログラムは実行前に"最適化"という処理が行われるのですが、
その時にVBAが「画像の表示は後回しにして、先に処理の停止(Sleep)を行おう」と"最適化"したのではないかと思われます。（本件を詳しく知りたい場合、別途teratailで質問することをおすすめします）

[sobue]

Application.ScreenUpdating = Trueを入れたら画像は表示されるようになりましたが、削除されません。
これも、最適化が働いているということですか？

[sobue]

すみません。勘違いです。できました。
ありがとうございます。

Answer 2

ShapeオブジェクトのVisibleプロパティで表示/非表示を設定できます。
参考になりましたら幸いです。

Comments

[sobue]

試してみましたが、挙動はDeleteの時と一緒でスリープやTimeValueで待機時間を設定すると画像挿入前に待機に入ってしまう。それを解消したいです。