Word'te Resimi Gizle-Göster Yapmak

[Seyit Tiken]

S.A, arkadaşlar, excelde şu kodla

ActiveSheet.Shapes("Picture 5").Visible _
= ActiveSheet.Shapes("Picture 5").Visible = 0

resimi gizle-göster yapabiliyoruz, bunu WORD'te yapabilir miyiz?, teşekkür ediyorum, Allah razı olsun...

 

[alicimri]

ActiveDocument.Shapes("Picture 5").Visible = msoFalse

 

[Haluk]

Kod her çalıştığında; gizliyken görünür olması, görünür durumdayken de gizli olması için aşağıdaki gibi bir kodu kullanabilirsiniz.

Sub Test()
    ActiveDocument.Shapes("Picture 5").Visible = Not ActiveDocument.Shapes("Picture 5").Visible
End Sub

.

 

[Seyit Tiken]

Arkadaşlar çook teşekkür ediyorum, Allah razı olsun.

 

[Haluk]

Kolay gelsin....


.