Discussion :

[Kutoh]

Bonjour,
Je voudrai savoir récupérer le contenu d'une shape d'une présentation powerpoint, et je voudrais savoir si quelqu'un a une idée sur la ligne de code me permettant de réaliser cela.

Merci d'avance.

[boisgontierjacques]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub RecupTexteShapes()
  ligne = 2
  For Each s In Sheets(1).Shapes
    Cells(ligne, 1) = s.Name
    Cells(ligne, 2) = s.TextFrame.Characters.Text
    Cells(ligne, 3) = s.TopLeftCell.Address
    Cells(ligne, 4) = s.Type
    ligne = ligne + 1
  Next s
End Sub

Jacques Boisgontier