Discussion :

[jangoxas]

Bonjour à tous,

Je découvre depuis peu les "joies" de VBA et en particulier dans Powerpoint et je bute déjà sur un problème que je n'arrive pas à résoudre (j'aurais bien utilisé l'enregistreur de macro pour piger comme dans excel, mais il semblerait que Microsot ait jugé bon de le retirer de la version 2010 de ppt) :

Voilà l'idée :
Dans une présentation j'ai crée de nombreuses animations (env. 200) pour de nombreux objets (zones de textes et formes essentiellement), ces animations étant des "balayer, estomper et forme".

A chaque animation j'ai donné un délai et une durée qui lui sont propres. Les animations indépendantes les unes des autres, où j'ai choisi de les faire toutes "Démarrer avec le précédent" dans les options de minutage puis de régler les délais que je connaissais à la mano.

L'ennui c'est que je me suis aperçu d'une erreur dans mon calcul pour une bonne partie d'entre elles (un peu plus des 3/4 environ) et il faudrait que je puisse rajouter un délai fixe (de 12 secondes pour être exact) à cette sélection d'animations.

Pour l'instant je patauge :
- Je me suis dit que ce serait plus simple et flemmard de faire ça avec vba plutôt qu'à la main.
- J'ai bien dans l'idée qu'il "suffirait de" sélectionner mes animations ou encore les objets (formes/zones de texte) auxquelles elles correspondent, récupérer le délai de chacune via une variable, et déclarer que la nouvelle valeur de ma variable devient "délai = délai + x" où x est un délai fixe en secondes à entrer à la main...

Mais je n'arrive pas à aller plus loin.

Si il se trouve parmi vous quelqu'un qui peut me venir en aide ou au moins m'expliquer une piste sur laquelle me lancer, je lui en serai très reconnaissant!


ps: voilà, premier post! ce forum à l'air sacrément utile!

edit : à la limite et pour simplifier le problème, si je peux faire la modif sur l'ensemble des animations de mon slide pour ensuite revenir sur les quelques animations à ne pas modifier à la main, je suis preneur aussi

[jangoxas]

Pour le moment voilà ce que j'ai (en partant sur l'hypothèse que je fais de la modification bourrin, et que les 2 ou 3 trucs à pas toucher je les ferai à la main) :

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
Sub Modifier_delai()
    Dim myrange As ShapeRange
    Dim sh As Shape
    Dim delai As Single
 
    Set myrange = ActivePresentation.Slides(2).Shapes.Range
    For Each sh In myrange
        delai = sh.AnimationSettings.AdvanceTime
        If delai >= 12 Then
            delai = delai - 12
        Else
            delai = 0
        End If
    Next
 
End Sub

Mais ça ne marche pas et je vois vraiment pas comment me débloquer...

[SfJ5Rpw8]

bonjour,

dans ton code tu récupère dans ta variable delai la valeur de la temporisation, tu traite et modifie cette valeur , mais il te manque une ligne pour mettre à jour la valeur après ce traitement

Code :

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

sh.AnimationSettings.AdvanceTime = delai

[jangoxas]

Bonjour,

Merci pour cette correction de mon code, en effet j'arrive maintenant à modifier le délai des animations!
Cependant, maintenant, lorsque j'exécute la procédure, toutes mes animations sont chamboulées :

D'un réglage (fait initialement à la main) d'animation "AVEC la précédente" elles passent toutes en "APRES la précédente" et mon ppt ne ressemble du coup plus du tout au résultat attendu.

D'ailleurs quand j'exécute cet autre code là (que j'ai écris pour tester l'une de mes formes afin de mieux comprendre comment marchait l'outil), ça me dérègle aussi toutes les animations!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub bidouille_friserouge()
Dim sh As Shape
Set sh = ActivePresentation.Slides(1).Shapes("friserouge")
    With sh.AnimationSettings
    MsgBox "Le délai de cette animation est de " & .AdvanceTime & " secondes"
    .AdvanceMode = ppAdvandOnTime
    .AdvanceTime = 24
    .EntryEffect = ppEffectWipeLeft
    .TextLevelEffect = ppAnimateByAllLevels
    .Animate = True
    MsgBox "Le nouveau délai de cette animation est de " & .AdvanceTime & " secondes"
 
    End With
End Sub

Je croyais pourtant avoir compris que la propriété ppAdvanceOnTime faisait démarrer AVEC l'animation précédente?!

Que faire?

[jangoxas]

up?