Excel-VBA: 复选框CheckBox是否选中

    For Each chk In ActiveSheet.CheckBoxes        If chk.Value = 1 Then '选中了            ChkChecked = True        Else            ChkChecked = False        End If    Next        'chk.Name 是名字，chk.Caption 是显示的内容