VBA : Utiliser des checks box pour afficher des groupes de diapositives

Version imprimable

Bonjour à tous

Je gratte, je gratte mais je n'arrive pas à trouver mon code. Et vu que je n'ai pas l'aide comme sur excel, j'ai du mal

J'aurais besoins de 2 codes

Je souhaiterais lorsque je sélectionne une check box de pouvoir sélectionner un groupe de diapositive :

J'ai tapé ce code mais j'ai des erreurs de syntaxes
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub CheckBox1_click() If CheckBox1 = True Then For x = 2 To 37 ActivePresentation.Slides(x).SlideShowTransition.Hidden = msoTrue Else CheckBox1 = False Then ActivePresentation.Slides(x).SlideShowTransition.Show = msoFalse End If End Sub End Sub
Pareil est il possible d'avoir la selection destinée à des groupes de diapos qui ne se suivent pas :

For y = 2 to 37 et 40 à 44 et 89 à 90

Merci pour votre aide

Citation:

Envoyé par push63

Bonjour,

J'ai essayé d'interpréter votre code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub CheckBox1_Click()
 
Dim X As Integer, NbSlides As Integer
 
    With ActivePresentation
         NbSlides = .Slides.Count
        If CheckBox1 = True Then
           For X = 2 To NbSlides
              .Slides(X).SlideShowTransition.Hidden = msoTrue
           Next X
        Else
           For X = 2 To NbSlides
               .Slides(X).SlideShowTransition.Hidden = msoFalse
           Next X
        End If
   End With
 
End Sub

En ce qui concerne l'affichage de diapos non consécutives, regardez les diaporamas personnalisés.

05/04/2020, 09h32
push63

good

Je vais regarder le diaporama personnalisé

Car je ne connaissais pas cette partie sur powert point

Merci pour votre code.

Bonne journée