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
Partager