Mise en forme PowerPoint à partir d'Excel

Bonjour à tous

Voilà j'ai besoin de pouvoir extraire des informations de Excel et de les importer dans PowerPoint pour faire une mise en forme. L'idée est de prendre les informations qui m'interessent à partir d'un tableau excel (colonne "Groupe" et "Mobilier") puis de créer une Shape à chaque texte transférer dans PowerPoint.

Donc déjà le fichier Excel avec une macro qui est censé envoyé chaque texte dans Powerpoint

Je ne comprends pas, mon code fonctionnait, puis j'ai du supprimer par erreur quelque chose et ça ne fonctionne plus....

Pouvez vous dejà m'éclairer et me dire ce qui cloche dans mon code.

Ensuite une fois que les shapes sont crées dans un fichier Powerpoint, je dois les ranger.

Beaucoup de problèmes à ce niveau !!!

D'abord, je ne suis pas familiariser avec le vba sur Pwp et je n'arrive même pas à créer un bouton pour lancer mes macros...

1° problème

donc ma question : ben on fait comment?

Ensuite, la macro mise_en_forme permet de réduire la police des shapes, de les alignés, de les séparer,...

Bref, ça au moins ça fonctionne

Puis je créer des flèches avec la macro fleche, mais le problèmes c'est leur manipulation.

J'aimerais pouvoir changer leurs couleurs, leurs dimensions,... mais déjà je n'arrive pas à les sélectionner autrement que une par une. Je pensais qu'en leur donnant à toute le même nom je pourrais toutes les manipuler ensemble, mais je n'y arrive pas.

Set fleche = ActivePresentation.Slides(1).Shapes.AddShape(msoShapeBentArrow, 20 + i * m, 20 + i * m, 100, 20)
fleche.Name = "fleche"
ActivePresentation.Slides(1).Shapes.Range(Array("fleche")).Select

Ce code ne me permet de manipuler qu'une seule shape à la fois, j'aurais cru pouvoir toute les selectionner d'un seul coup.

Auriez vous une idée?