Boucler sur les shapes d'un powerpoint via excel
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:
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 :)