Discussion :

[Harry Covair]

Bonjour à tous,

Dans la FAQ PowerPoint, Philippe Jochmans dit:

Pourquoi mes diapositives n'apparaissent-elles pas dans l'éditeur VB ?
C'est normal, car les diapositives PowerPoint ne génèrent pas de procédures événementielles, contrairement aux feuilles Excel, aux pages Word ou aux formulaires Access.
Pour qu'une diapositive apparaisse, il faut positionner sur celle-ci un contrôle issu de la barre d'outils Boîte à Outils Contrôles. À ce moment vous pourrez mettre du code dans la diapositive.

La dernière dia de la présentation est la dixième. Elle est invisible dans l'explorateur de projet; normal vu l'article ci-dessus.
J'y ajoute une combobox.
Dans l'explorateur de projet, la dia 10 apparaît comme slide11.
Conséquence: lorsque je balaye la dia 11 pour éliminer certains objets, ils ne sont pas trouvés.

Code :

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

1
2
3
4
5
6
For Each sh In Slide11.Shapes
    If sh.Type = "1" Then 'blockarrow
            sh.Delete
    End If
    sh.Select
Next

Si je remplace "slide11" par "slide10", je reçois un message "Object required".
Y a-t-il une explication à ce problème, voire une solution.

D'avance merci

Harry

[Invité]

Bonjour

Pour la numérotation :

Lorsque tu crées 10 diapos, que tu en supprimes une, et que tu en crées un autre, tu auras bien 10 diapos, mais la numérotation ne reprend pas.

En clair, je crées les diapos 1 à 10, donc j'aurais 1,2,3,4,5,6,7,8,9,10 si je supprimes 3 et que j'en rajoute une, cela donnera 1,2,4,5,6,7,8,9,10,11, j'aurais toujours 10 diapos.

Pour le code :

Essayes

Code :

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

 If sh.Type = 1 Then

Enlève les guillemets.

Tu as un Select dans ton code, cette instruction ne fonctionne pas en mode diaporama, il n'y a pas de sélection possible des shapes, la sélection ne peut se faire qu'en mode conception.

Philippe

[Harry Covair]

Bonjour Philippe,

Merci pour l'explication. En fait, cette logique se retrouve aussi dans les contrôles Access e.a.
Le "select" n'était présent que pour le débugging.

Excellente journée

Harry