特定のActive-Xチェックボックスのチェックとアンチェックを同時に行うExcelコマンドボタン

Question

ExcelでActive-X Commandボタンを使用して特定のチェックボックスを選択し、同時に他のチェックボックスを選択解除しようとしています。今のところ、 "Design"という名前で始まったり、 "Design"という名前で始まっているすべてのボックスのチェックを外しています。

以下のコードは、「デザイン」という名前のボックスのチェックを外していたが、「チェックボックス」で始まるボックスのチェックを追加して以来、エラー（オブジェクトのメソッド「名前」 '_OLEOBJECT'が失敗しました）。

Private Sub CommandButton1_Click() 

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

は私もまだ上記と同じエラーが発生し、この変化を試してみました：

Private Sub CommandButton1_Click() 

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

    Dim j As Object 
     For Each j In ActiveSheet.OLEObjects 
      If InStr(1, j.Name, "CheckBox") < 1 Then 
       j.Object.Value = True 
      End If 
     Next 


    End Sub 

Answer 1

はこれを試してみてください、それはすべてのチェックボックスのチェックを外し。すべてのチェックボックスをチェックする場合は、それをtrueに設定します。

Sub uncheck_all() 
    Dim sh As Shape 
    Application.ScreenUpdating = False 
    For Each sh In ActiveSheet.Shapes 
     If sh.Type = msoOLEControlObject Then 
      If TypeName(sh.OLEFormat.Object.Object) = "CheckBox" Then sh.OLEFormat.Object.Object = True 'set to true if you want to check all checkboxes 
     End If 
     If sh.Type = msoFormControl Then 
      If sh.FormControlType = xlCheckBox Then sh.OLEFormat.Object = True 'set to true if you want to check all checkboxes 
     End If 
    Next sh 
    Dim o As Object 
    For Each o In ActiveSheet.OLEObjects 
     If o.Name Like "Design*" Then 'use If o.Name Like "*Design*" Then if you want to be any name with "Design" in the name. 
      o.Object.Value = False 
     End If 
    Next o 
    Application.ScreenUpdating = True 
End Sub