Copie image powerpoint à coller dans Excel

Bonjour,

Je travaille actuellement sur un fichier qui regroupera plusieurs images afin de pouvoir venir piocher dedans pour des présentations.
Le fichier de travail est un fichier EXCEL.
Certains tableaux/graph dont j'ai besoin sont dispo sur un powerpoint, par conséquent j'ai actuellement le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub MAJ_graph_TTA()   '********************************************* 'Ouverture de POWERPOINT '*********************************************   Dim PPT As PowerPoint.Application Dim PptDoc As PowerPoint.Presentation Dim NbShpe As Byte   Set PPT = CreateObject("Powerpoint.Application") 'creation session PowerPoint PPT.Visible = True 'l'application sera visible Set PptDoc = PPT.Presentations.Open("lien vers fichier ppt")   [C'est à partir d'ici que çe ne va plus ^^] '*************************************************** ' Copie des images du fichier powerpoint dans fichier de travail excel '***************************************************   'je veux aller dans la slide n°201 du powerpoint, y sélectionner la seule image présente et aller la copier dans mon fichier excel   For Each Image In ActivePresentation.Slides(201) Shapes.Select Windows("Macro_transfert.xlsm").Activate Sheets("feuil1").Select Range("A1").Select ActiveSheet.Pictures.Paste.Select   End sub

---

Je vous remercie d'avance pour votre précieuse aide! (vous m'avez déjà permis de bien apprendre VBA, mais je bloque encore sur la logique des codes)

Margot

perso j'ai jamais utiliser excel pour powerpoint en lecture ou ecriture mais il y a quelque chose d'ilogique dans ton code et de manquant aussi
tu boucle sur une variable image dans la collextion slides sans preciser quel types d'elements tu veux
apres tu selectionne le shape on c'est pas c'est qui celui la ;)

Code:

---

1 2 3 4 5 6 7 8

For Each Image In ActivePresentation.Slides(201)'ici image est une variable qui peut tres bien representer des poiles a frire Shapes.Select 'qui c'est celui la ??????? Windows("Macro_transfert.xlsm").Activate Sheets("feuil1").Select Range("A1").Select ActiveSheet.Pictures.Paste.Select 'ne faudrait il pas réactiver la fenetre de powerpoint ici ????? End sub

---

comme je ne connais pas mais si je devais suivre un raisonnement logique je ferais un truc du genre

Code:

---

1 2 3 4 5 6 7

For Each Image In ActivePresentation.Slides(201).pictures image.copy Windows("Macro_transfert.xlsm").Activate Sheets("feuil1").Select Range("A1").Select ActiveSheet.Pictures.Paste.Select End sub

---

Bonjour,

Désolé de te décevoir Patrick, mais il n'y a pas d'objet Picture dans PowerPoint. D'autre part, récupérer une shape (image, forme, graphique, objet OLE…) dans une diapositive n'est vraiment pas le point fort de VBA PowerPoint. Parce que PowerPoint assigne un numéro à l'image et le concatène automatiquement à Picture, pour avoir le nom de l'image.

Et puis, promener des images entre Excel et d'autres applications Office par le presse-papiers est parfois catastrophique…


Voici tout ce qui peut être une shape dans PowerPoint


Théoriquement en bouclant sur la collection shapes de la diapositive, on pourrait obtenir le type de l'objet shape et récupérer les msopicture. Mais, je n'ai jamais essayé.

Bonjour clement
oui c'est bien pour ca que j'ai bien precisé que je connaissait pas mais ce qui est sur c'est que son code de base ne pourrait en aucun cas fonctionner ne serait ce que par ce qu'il ne copie pas deja
dont si je te comprends
c'est for each shap in object.slides(201).shapes

Je vous remercie pour votre aide.
Je sentais bien que je demandais à VBA qqc qu'il ne gère pas super bien... mais rien n'est perdu je vais trouver une autre méthode ! :lol:

Citation:

---

Envoyé par patricktoulon

Bonjour clement
dont si je te comprends
c'est for each shap in object.slides(201).shapes

---

Probablement. Comparé à Word, et encore plus à PowerPoint, VBA Excel est presque facile. ;) Je me demande ce que c'est avec Publisher.