Как убрать галочки из Checkbox макросом

[novak_26]

Есть несколько checkbox'ов не на форме, а на рабочем листе.
Можно к.-л. сделать, чтобы по нажатию на кнопку (запуск макроса), все галочки убирались?

[EducatedFool]

Sub button_34()
    Dim sha As Shape: On Error Resume Next
    For Each sha In ActiveSheet.Shapes
        sha.OLEFormat.Object.Value = 0
    Next sha
End Sub

[SAS888]

Или так:

Sub Main()
    Dim Obj As Object
    For Each Obj In ActiveSheet.DrawingObjects
        If Obj.Name Like "Check Box*" Then Obj.Value = False
    Next
End Sub

[novak_26]

спасибо, работает

[Maxx]

Sub button_34()
For i = 1 To ActiveSheet.Shapes.Count - 1
    ActiveSheet.Shapes("Check Box " & i).Select: Selection.Value = False
Next
[A1].Select
End Sub

[Igor67]

novak_26, если честно - не понял глубинного смысла задачи... если только так, для красоты.
Обращаться к элементу - не удобно. Может просто связать с ячейкой? тогда уже можно говорить об обработке данных просто формулами и макросом обратиться к ячейке/диапазону проще

[Ципихович Эндрю]

здравствуйте, может кто подсказать это же решение но в Ворде? спасибо

[Ципихович Эндрю]

For i = 1 To ActiveDocument.InlineShapes.Count
        ActiveDocument.InlineShapes(i).OLEFormat.Object.Enabled = True
        ActiveDocument.InlineShapes(i).OLEFormat.Object = True
        ActiveDocument.InlineShapes(i).OLEFormat.Object = False
    Next i

нашёл