ToggleButton İşlevini Düzenleme

[1Al2Ver]

Merhaba,

Sayfayı buton yardımı ile renkli yada siyah/beyaz yapabiliyorum,

Bu buton ile sayfanın tamamını değilde, örneğin sayfada A1:G25 aralığını renkli yada siyah/beyaz yapmak istiyorum,

Yardımlarınızı rica ediyorum.

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = False Then

  ActiveSheet.PageSetup.BlackAndWhite = False
    ToggleButton1.Caption = "Siyah/Beyaz Çevir"

Else

   ActiveSheet.PageSetup.BlackAndWhite = True
    ToggleButton1.Caption = "Renkliye Çevir"

End If
End Sub

 

[Seyit Tiken]

If Me.ToggleButton1 Then
ToggleButton1.Caption = "Siyah/Beyaz Çevir"
[a1:g25].Interior.Color = 15849925
Else
ToggleButton1.Caption = "Renkliye Çevir"
[a1:g25].Interior.Color = xlNone
End If

 

[1Al2Ver]

Sayın Seyin Tiken merhaba,

İlginiz ve çözüm için teşekkür ederim.

Saygılarımla.