Hallo,
ich möchte gerne in meiner PowerPoint Präsentation mehrere Checkboxen mit einer For Schleife ansprechen um auf False zu setzten.
Laider komme ich nicht weiter, könnt ihr mir weiterhelfen?
Public Sub reset()
Dim i As Integer
For i = 1 To 17
Slide2.CheckBox& i&.Value = False
Next i
End Sub
Vorrübergehend mache ich dies mit folgendem Makro:
Public Sub Checkbox_value()
Slide2.CheckBox1.Value = False
Slide2.CheckBox2.Value = False
Slide2.CheckBox3.Value = False
Slide2.CheckBox4.Value = False
Slide2.CheckBox5.Value = False
Slide2.CheckBox6.Value = False
Slide2.CheckBox7.Value = False
Slide2.CheckBox8.Value = False
Slide2.CheckBox9.Value = False
Slide2.CheckBox10.Value = False
Slide2.CheckBox11.Value = False
Slide2.CheckBox12.Value = False
Slide2.CheckBox13.Value = False
Slide2.CheckBox14.Value = False
Slide2.CheckBox15.Value = False
Slide2.CheckBox16.Value = False
Slide2.CheckBox17.Value = False
End Sub
Einen schönen sonnigen Sonntag
Stefan
|