Выберите все флажки из одного флажка в VBA на PowerPoint - PullRequest
Новая
       26

Выберите все флажки из одного флажка в VBA на PowerPoint

0 голосов
/ 22 октября 2019

Я использую PowerPoint для создания макетов пользовательского интерфейса и включил инструменты разработчика, которые создают предварительно созданные флажки и т. Д. Я хочу иметь один флажок, который при выборе выбирает все остальные на слайде.

Я попробовал следующий код, который принят синтаксически, но ничего не делает видимым.

это измененная версия с https://www.extendoffice.com/documents/excel/2692-excel-checkbox-select-all.html

CheckBox11 мой "Выбрать все"флажок и флажок 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

Как я могу установить этот флажок, чтобы отмечать или снимать флажок с остальных на слайде?

1 Ответ

0 голосов
/ 22 октября 2019

Я понял это. Вид наивного решения, но 

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
...