Onay İşaretlerinin Tümünü Kaldırmak

[ormann]

Günaydın;
Ekteki örnek dosyada CommandButton2 ile onay işereti seçili olan CheckBoxların işeretlerini nasıl kaldırabiliriz?

 

[halit3]

Günaydın;
Ekteki örnek dosyada CommandButton2 ile onay işereti seçili olan CheckBoxların işeretlerini nasıl kaldırabiliriz?

kod:

Private Sub CommandButton2_Click()
Dim Picture As Object
Set s1 = Sheets(ActiveSheet.Name)
For Each Picture In s1.Shapes
If TypeName(s1.Shapes(Picture.Name).OLEFormat.Object) = "OLEObject" Then
s1.Shapes(Picture.Name).OLEFormat.Object.Object.Value = 0
End If
Next Picture
MsgBox "İşlem Tamam", vbInformation, " U Y A R I "
End Sub