Discussion :

[push63]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[push63]

Je vais regarder le diaporama personnalisé

Car je ne connaissais pas cette partie sur powert point


Merci pour votre code.

Bonne journée