从 PowerPoint 上的 VBA 中的单个复选框中选择所有复选框答案

【问题标题】：Select All CheckBoxes from single CheckBox in VBA on PowerPoint从 PowerPoint 上的 VBA 中的单个复选框中选择所有复选框
【发布时间】：2019-10-22 22:42:51
【问题描述】：

I am using PowerPoint to create UI mockups and have enabled the developer tools that create premade checkboxes, etc. I want to have a single checkbox that when selected, selects all the others on the slide.

我已经尝试了以下代码，它在语法上被接受，但没有明显地做任何事情。

这是https://www.extendoffice.com/documents/excel/2692-excel-checkbox-select-all.html的修改版

CheckBox11 是我的“全选”复选框，CheckBox 1-10 需要根据被点击来选择或取消选择。

Sub SelectAll_Click()
    Dim xCheckBox As CheckBox
    For Each xCheckBox In Application.ActiveWindow.View.Slide.Checkboxes
        If xCheckBox.Name <> Application.ActiveWindow.View.Slide.Checkboxes("Check Box 11").Name Then
            xCheckBox.Value = Application.ActiveWindow.View.Slide.Checkboxes("Check Box 11").Value
        End If
    Next
End Sub

Private Sub CheckBox11_()
     SelectAll_Click
End Sub

如何让此复选框选中或取消选中幻灯片上的其余部分？

【问题讨论】：

Slide 对象没有 Checkboxes 属性。 Powerpoint 对象模型与 Excel 不同...

标签： vba checkbox powerpoint

【解决方案1】：

我想通了。一种天真的解决方案，但是

Private Sub SelectAll()
If CheckBox11.Value = True Then
    CheckBox1.Value = True
    CheckBox2.Value = True
    CheckBox3.Value = True
    CheckBox4.Value = True
    CheckBox5.Value = True
    CheckBox6.Value = True
    CheckBox7.Value = True
    CheckBox8.Value = True
    CheckBox9.Value = True
    CheckBox10.Value = True
End If
If CheckBox11.Value = False Then
    CheckBox1.Value = False
    CheckBox2.Value = False
    CheckBox3.Value = False
    CheckBox4.Value = False
    CheckBox5.Value = False
    CheckBox6.Value = False
    CheckBox7.Value = False
    CheckBox8.Value = False
    CheckBox9.Value = False
    CheckBox10.Value = False
End If
End Sub

Private Sub CheckBox11_Click()
    SelectAll
End Sub

【讨论】：