application.screenupdating = false ???

[bykursat]

S.A.

excelde makromda yaptığım işlemleri bu komut ile ekrana getirmiyorum ancak şöyle bir sorunum var....

Sub islem()
ActiveSheet.Pictures.visible = true
application.screenupdating = false
...
...
...
...
...
...
ActiveSheet.Pictures.visible = false
end sub

yukaridaki makro sonucunda tüm resimleri önce ekrana getirip sonra diğer komutları yürütecek, komut sonundada resimler tekrar gizlenecek
olması lazım ama
kodun başındaki resim gösterme komutu çalışıyor fakat ekrana gelmiyor

burada resimleri ekrana getirmek için ne yapmalıyım ?

teşekürler

 

[ileriexcel]

Kod çalışıyor.
Sub islem()
On Error Resume Next
ActiveSheet.Pictures.Visible = True
Application.ScreenUpdating = False
MsgBox "TEST"
ActiveSheet.Pictures.Visible = False
End Sub