ワークシートに配置した［コントロールツールボックス（ActiveXコントロール）］のチェックボックスのことで、［フォーム］ツールバーのチェックボックスのことではないですね。
次のページに類似例があり、参考になるかと思います。
オブジェクト名を変化させながら使うには？ （ワークシート）
オブジェクト名を変化させながら使うには？ （ユーザーフォーム）
私も勉強中で十分理解できてはいないですが、一応、次のマクロで実現するかと思いますから試してみて、結果をお知らせください。
'-----------------------------------------------------------------------------------------
Sub チェックボックスをオフにする()
Dim オブジェクト As OLEObject
Dim 名前 As String
'
For Each オブジェクト In ActiveSheet.OLEObjects
If オブジェクト.progID = "Forms.CheckBox.1" Then
名前 = オブジェクト.Name
ActiveSheet.OLEObjects(名前).Object.Value = False
End If
Next
End Sub
'-----------------------------------------------------------------------------------------
なお、9行目の ・・Value = False でオフにしていますが、・・Value = True に変えればオンにすることができます。
|
