Discussion :

[beegees]

Bonjour à tous,

J'ai un texte composé de plusieurs paragraphe.

Je voudrais savoir si il serait possible de faire ceci ? :

Introduire une animation dans laquelle devrait apparaitre en plus grand caractère (et en vert ou bleu) chaque paragraphe en cours de lecture et en transformant le couplet précédent en plus petit caractère et en noir ?

Je voudrais donc avoir le premier paragraphe en caractère 26 avec des caractères vert, une fois que je cliques, le premier paragraphe redevient à une taille de 18 et en noir et le second paragraphe devient en 26 bleu ou vert.

Est-ce possible ? si oui, comment svp ? avec VBA ou sans ?

Merci d'avance.

bee

[Invité]

Bonjour

Je pense que pour cela chaque paragraphe devrait être dans des zones de textes différentes.

Est-ce que c'est le cas ?

Philippe

[beegees]

Bonjour

Je pense que pour cela chaque paragraphe devrait être dans des zones de textes différentes.

Est-ce que c'est le cas ?

Philippe

Bonjour Philippe,

Merci pour ta réponse.

Je confirme que chaque paragraphe se trouve dans une zone de texte différente.

bee

[Invité]

Bonjour

A tester en utilisant les déclencheurs et les effets d'emphase sur les polices.

Philippe

[beegees]

Bonjour

A tester en utilisant les déclencheurs et les effets d'emphase sur les polices.

Philippe

Bonjour,

Tester quoi ?

Merci

Bee

[Invité]

Re

Excuses moi du retard, je suis surchargé en ce moment.

Bon à priori en manuel cela ne fonctionne pas avec les déclencheurs, donc en VBA (testé sur PTT 2007)

Voici un code à mettre dans un module.

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
20
21
22
23
24
25
26
27
Public Sub Formatage(objShpCible As Shape)
    ' déclaration
    Dim objSld As Slide
    Dim objShp As Shape
 
    ' affectation on utilise la première diapositive
    Set objSld = ActivePresentation.Slides(1)
 
    ' on parcourt les objets de la diapo
    For Each objShp In objSld.Shapes
        ' on test le type
        If objShp.Type = msoTextBox Then
            ' on test le nom
            If objShp.Name = objShpCible.Name Then
                With objShp.TextFrame.TextRange.Characters
                    .Font.Bold = msoTrue
                    .Font.Size = 15
                End With
            Else
                With objShp.TextFrame.TextRange.Characters
                    .Font.Bold = msoFalse
                    .Font.Size = 10
                End With
            End If
        End If
    Next objShp
End Sub

Ensuite sur l'action de chaque zone de texte (en prenant bien le cadre de cette zone), sur le click, tu choisis "Exécuter la macro" et tu la sélectionnes.

Cela fonctionne sous PPT 2007, à toi d'adapter en fonction de ce que tu souhaites au niveau formatage.

Philippe

[beegees]

Bonsoir Philippe,

Un tout grand merci pour cet exemple de code que je garde précieusement au cas où j'en aurais besoin dans un proche future.

J'ai en effet trouvé une autre solution entre temps, j'ai créé autant de diapo qu'il y a de paragraphes. À chaque affichage de la diapo j'affiche le paragraphe en vert et en gras (celui qui doit être lu).

Encore merci.

bee