[حل شده] Unselect کردن چک باکسی که از طریق Active X ساخته شده

[a.dal65]

با سلام خدمت اساتید

من 2 تا چک باکس با نام های aa و bb از طریق active x ساختم



حالا میخوام با کد ماکروی اونو unselect کنم
ممنونم

[majid_mx4]

با سلام
میتوانید از دستور های زیر استفاده نمایید.

Sub checkCheckbox()
    Dim o As Object
    For Each o In ActiveSheet.OLEObjects
        If InStr(1, o.Name, "CheckBox") > 0 Then
            o.Object.Value = True
        End If
    Next
End Sub
 
Sub uncheckCheckbox()
    Dim o As Object
    For Each o In ActiveSheet.OLEObjects
        If InStr(1, o.Name, "CheckBox") > 0 Then
            o.Object.Value = False
        End If
    Next
End Sub

پایدار باشید میر

[a.dal65]

ممنون جناب میر

2 ساعته درگیر اینم که چرا همین کد توی فایل خودم کار نمیکنه !!!!!

فهمیدم وقتی چک باکس با هر چیز دیگه ای گروپ شده باشه کد کار نمیکنه (unselect نمیشه)