j'ai ceci, mais sur image, j'ai "un composant Activex ne peut pas être créé".
la référence PPT a été mise. et ado aussi
merci de votre aide.

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 PPT()
 
Dim NomPpt As Variant, ShapeActif As Variant
Dim i As Integer, n As Integer
Dim Image As Shape
i = 2
    Set PptAppli = CreateObject("Powerpoint.Application")
    PptAppli.Visible = True
 
    CheminPPT = "C:\Présentation-test.pptx"
    Set NomPpt = PptAppli.Presentations.Open(Filename:=CheminPPT)
    For Each Image In ActivePresentation.Slides(i).Shapes
        MsgBox Image.Name
    Next
 
end sub