excelde 1 butonla 3 buton açma problemi

[azrail6161]

Merhaba arkadaşlar excel muhasebe programı tasarlıyorum ve son aşamasına doğru bir sorunuma çözüm bulamadım.sorunum excelde çizdiğim dikdörten şekline makro atayarak (veya başka bir yolla) tıkladığımda 3 tane daha şekil açılmasını tekrar tıkladığımda şekillerin gizlenmesini istiyorum.yardımcı olabilecek olan varsa yardımlarınızı bekliyorum.

not:bunu buton kullanarak yapabiliyorum ama şekil kullanarak yapmayı beceremedim.

 

[fireman64]

Sayfanıza bir togglebutton ve 3 adet dikdörtgen ekleyip butona aşağıdaki kodları yapıştırın.

Private Sub ToggleButton1_Click()
 If ToggleButton1.Value = True Then
  ToggleButton1.Caption = "GİZLE"
      ActiveSheet.Shapes.Range(Array("Rectangle 1")).Visible = True
      ActiveSheet.Shapes.Range(Array("Rectangle 2")).Visible = True
      ActiveSheet.Shapes.Range(Array("Rectangle 3")).Visible = True
    
   Else
      ToggleButton1.Caption = "GÖSTER"
     ActiveSheet.Shapes.Range(Array("Rectangle 1")).Visible = False
     ActiveSheet.Shapes.Range(Array("Rectangle 2")).Visible = False
     ActiveSheet.Shapes.Range(Array("Rectangle 3")).Visible = False
   End If

End Sub

 

[azrail6161]

İşe yaradı.çok teşekkürler.