Çizim nesnelerini gösterme veya gizleme

[gozluk]

Arkadaşlar şöyle bir sorunum var,

bir sayfadaki bir çizim nesnesini (Örneğin Ok) bir düğmeye bağlayarak düğmeye basında nesnenin gizlenmesi, tekrar tıklayınca görünmesini sağlayacak bir makro nasıldır. vb de nesnelerin visible özelliği ile halledebiliyorduk ama tabi excel deki yapı biraz farklı.

 

[hamitcan]

Eki inceleyin.

 

[gozluk]

harikasınız, tam olarak istediğim buydu. çok teşekkürler...

 

[1Al2Ver]

Eki inceleyin.

Sayın hamitcan merhaba,

Ben de faydalandım, teşekkür ederim,

1'den fazla ok yada birden fazla karışık şekil için, kod'a nasıl bir ilave yapmak gerekir ?

Teşekkür ederim.

 

[hamitcan]

Private Sub ToggleButton1_Click()
For i = 1 To ActiveSheet.Shapes.Count
    If ToggleButton1.Value = True Then
    ToggleButton1.Caption = "Göster"
    ActiveSheet.Shapes(i).Visible = False
    Else
    ToggleButton1.Caption = "Gizle"
    ActiveSheet.Shapes(i).Visible = True
    End If
Next
End Sub

 

[1Al2Ver]

Private Sub ToggleButton1_Click()
For i = 1 To ActiveSheet.Shapes.Count
    If ToggleButton1.Value = True Then
    ToggleButton1.Caption = "Göster"
    ActiveSheet.Shapes(i).Visible = False
    Else
    ToggleButton1.Caption = "Gizle"
    ActiveSheet.Shapes(i).Visible = True
    End If
Next
End Sub

Sayın hamitcan merhaba,

Çözüm için teşekkür ederim.

Saygılarımla.