Discussion :

[Xpmich]

Bonjour,
J'utilise PPT-2207 mais j'ai remarqué la même erreur sur les autres versions.
J'ai réalisé un PPT ayant deux plans :
- Plan 1 :
o Sous-titre 1-1 (1 slide)
o Sous-titre 1-2 (2 slides enchainés automatiquement)
o Sous-titre 1-3 (4 slides enchainés automatiquement)
o Sous-titre 1-4 (3 slides enchainés automatiquement)
- Plan 2 :
o Sous-titre 2-1 (5 slides enchainés automatiquement)
o Sous-titre 2-2 (8 slides enchainés automatiquement)
o Sous-titre 2-3 (7 slides enchainés automatiquement)
o Sous-titre 2-4 (9 slides enchainés automatiquement)

J'ai plusieurs questions :
- Je voudrais mettre en boucle uniquement le plan 1. Pour cela, pas de problème, j’utilise la configuration du diaporama.
- Une fois accéder à mon deuxième plan (via un lien hypertexte), j’aimerais garder la main sur ce deuxième plan. J’ai remarqué que lors du saut, l’ordre des diapositives n’est pas respecté et une fois cette diapo faite, PPT retourne à celle d’où l’on vient de sauter.

Exemple : de la slide 3 du Sous-titre 1-3 je décide de sauter au plan 2 : donc vers Sous- titre 2-1. J’aimerais qu’il réalise les 5 slides du sous-titre et qu’il y reste. Cependant, voici ce qu’il fait : Il arrive sur la slide 1 du Sous-titre 2-1, il réalise les animations de cette slide puis il retourne dans le sous-titre 1-3 sur la diapo suivante, soit la slide 4.
- Comment remettre les animations en route après un saut. Exemple : je suis sur la diapo 18, je la visualise avec ses animation, j’enchaine vers la 19. Puis sur la 19, au milieu des animations, je fais un saut vers un diapo « x » puis par un saut, je revient à la diapo 18. La diapo apparait dans son état final. Comment remettre à zéro les animations pour qu’elle démarre quant on arrive ?

J’espère avoir été clair. Si vous pouvez m’aider. Merci d’avance.

PS : Codé en VBA ne me fait pas peur, mais je pense qu’il est possible de faire autrement.

Xpmich.

[Invité]

Bonjour

Pour refaire les animations : http://www.developpez.net/forums/d79...ero-animation/

Ensuite, un peu de lecture pour gérer ta navigation : Gérer la navigation dans un diaporama PowerPoint

Philippe

[Xpmich]

Bonjour,
Tout d'abord merci de la réponse rapide.
Ensuite, j'ai suivi tes instructions par rapport au diaporama personnalisé. Cependant je suis obligé de créer un diaporama personnalisé par sous-titre (c'est pas le plus grave). De mon coté, pour mes liens Hypertexte de mon plan 2, les cases "Afficher et revenir" ne sont pas disponibles (grisé). (donc problème non résolu)

Je vais lire ton deuxième document, en tout cas merci d'avance. je te tiens au courant.

Merci.

Xpmich.

[Xpmich]

Re Bonjour,

Donc je viens d'essayer une méthode : Créer un diaporama personnalisé par sous-titre en faisant bien attention que la dernière diapo de mon sous-titre soit en animation manuelle. De ce fait, l'utilisateur doit utiliser le plan (truffé de lien) pour naviguer : Ce qui me va parfaitement.

Le défaut : Il faut faire autant de "Echap" qu'il n'y a eu de diaporama personnalisé lancé. Est-il possible de faire autrement ?

PS : En faisant ainsi, les animations se remettent à zéro car on relance un nouveau diaporama.

MAJ du post :
De plus : Plus on lance de diaporama personnalisé, plus la CPU augmente
Xpmich

Cdt,
Xpmich

[Xpmich]

Bonjour,

Donc pour permettre de clôturer ce chapitre, j'ai trouvé une solution au deux problèmes majeurs :
- Boucler sur le 1er sommaire
- Réactualiser les animations dans le 2eme sommaire lors du clic sur l’hypertexte.

Problème 1:
Pour permettre de boucler automatiquement un diaporama entre les diapositives x et y, il faut passer par la programmation (et non par diaporama personnalisé pour les raisons évoqués plus haut (1)). Pour cela, il faut un gestionnaire d'évènement. Sous PowerPoint, il n'y en a pas d'automatiquement lancé. Il faut le "créer" et le lancer. C'est pourquoi il faut rajouter une diapositive (qui ne se verra qu'au démarrage) qui lancera grâce à un bouton le gestionnaire. Une fois le gestionnaire d'évènements lancé, il suffit d'intercepter la diapositive de fin pour boucler.
Résumons :
1- Mettre en place le gestionnaire :
Je ne vais pas réinventer la poudre :
Créer un gestionnaire d’évènements
PS : Télécharger le zip et copier simplement les modules (module + module de classe) dans votre projet.

2- Ajouter une diapositive au départ
Tout d'abord, j'ai rajouté une diapo au départ avec un bouton lié à un code. Mettre la transition de la diapositive en manuelle.

Code :

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

1
2
3
4
 
Private Sub CommandButton2_Click()
    RunEvents
End Sub

PS : Pour éviter de dépendre de la slide, il est possible de passer la fonction en public, de la mettre dans un module et ensuite, la lier par une action.
3- Intercepter la diapositive voulue

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
'---------------------------------------------------------------------------
' Interception
'---------------------------------------------------------------------------
Private Sub oApp_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
' Intercepter la diapositive voulue
 
If Wn.View.Slide.SlideNumber = 26 Then '26 = numéro de la diapo final de la 1ere partie
    Wn.View.GotoSlide (2)'saut à 2ème pour ne pas revoir celle avec le bouton
End If
End Sub

Problème 2:
C'est un peut plus long et moins maniable: A ne faire qu'une fois le diaporama terminé.
Il s'agit de passer tout les liens hypertextes du menu en actions liées à chacune à une procédure VBA.

1- Ecrire toutes les procédures : une pour chaque sous-menu cliquable
Voici un exemple pour deux menus :

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
 
Private Const P_INTRO As Integer = 27 'numéro du sommaire
Private Const P_ZONE1 As Integer = 28 'numéro de la sous-partie 1...
'---------------------------------------------------------------------------
' Menu : Introduction
'---------------------------------------------------------------------------
Public Sub Me_Introduction()
'Relancer toutes les animations de la diapo demandée
    ActivePresentation.SlideShowWindow.View.GotoSlide P_INTRO, msoCTrue
End Sub
 
'---------------------------------------------------------------------------
' Menu : Sous titre 1
'---------------------------------------------------------------------------
Public Sub Me_SousTitre1()
'Relancer toutes les animations de la diapo demandée
    ActivePresentation.SlideShowWindow.View.GotoSlide P_ZONE1, msoCTrue
End Sub

PS: "msoCTrue" est le paramètre permettant de réinitialiser l'animation.

2-Mettre en place les actions
Sélectionner le texte puis lié l'action (menu PPT2007 : Insertion => actions==>Exécuter la macro...)

(1) : De plus, un diaporama personnalisé limite. Si un lien Hypertexte projette vers une diapositive hors du diaporama personnalisé, celle-ci s'exécute plus il revient automatiquement au diaporama personnalisé.

Voila, c'est un peu long mais j'espère que c'est détaillé.

Cdt,

Xpmich