Discussion :

[DevJunior59]

salut à tous ,
je tente sans succés de boucler sur toutes les shapes de toutes mes slides ( à partir de la 6) d'une presentation pptx via une macro Excel, voici mon bout de 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
 
Dim shp As Object
Dim sld As Object
indexsld = 6
indexshp = 1
 
For Each sld In Pres.Slides
    For Each shp In sld.Shapes
    If Pres.Slides(indexsld).Shapes(indexshp).TextFrame.HasText Then
    With Pres.Slides(indexsld).Shapes(indexshp).TextFrame.TextRange
        .Font.Italic = msoTrue
        .Font.Bold = msoTrue
    End With
indexsld = indexsld + 1
indexshp = indexshp + 1
End If
Next shp
Next sld

EXPLICATION :

indexsld contient mon numero de slide de départ
indexshp contient mon numero de shape de départ
Pres est ma presentation powerpoint que je parcours

Je tente de parcourir slide par slide toutes mes shapes pour vérifier si elles contiennent du texte et ainsi les mettre en gras et italique.

des idées pour me faire avancer ?
j'ai l'impression de ne pas etre loin du but pourtant

merci à vous

[Patrice740]

Bonjour,

Tu crées une varaible shp (dans la boucle For Each ...) qui représente chaque shape de chaque slide, mais tu ne l'utilises pas ! Pourquoi ?

[DevJunior59]

bonjour,

je n'arrive pas à l'inclure, j'ai pas le déclic qui me vient là ...
tu n'aurais pas une petite indication stp ?

[Igloobel]

Bonjour,

Pourquoi ne faistu pas cela dans PowerPoint Directement ?

PowerPoint a du VBA

[DevJunior59]

bonjour igloobel,

je dirais que la raison principale est : les exigences du patron , makheureusement il faut bien respecter