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