Powerpointception : Copie de slides ppt dans un ppt

Word, PowerPoint, Outlook, Access et tous les autres logiciels de la suite Office (sauf Excel)
Y
Yeahman
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 2 mars 2017
Version d'Excel : Excel 2010

Message par Yeahman » 13 septembre 2017, 17:00

Bonjour à tous,

je cherche à faire une macro qui, je pense, est simple. En réalité je cherche depuis un moment et impossible de trouver comment faire certaines parties :
Ce que je désire faire :
J'ai deux ppt qui existent : ppt 1 (Avec les slides A1 et B1) & ppt2 (Avec les slides A2 et B2)
Je veux copier les slides A1 et B1 de ppt1 dans PPT2 qui deviendraient donc C2 et D2
Puis supprimer A2 et B2 de ppt2 pour avoir à nouveau que deux slides dans PPT2.

Je n'ai pour l'instant réussi qu'à ouvrir PPT2 à partir de PPT1 en utilisant:

Dim cible
'cible = Shell("POWERPNT.EXE ""\\C:\CHEMIN\TESTMACRO.pptx""", 1)

Set PptDoc = pptApp.Presentations.Add
PptDoc.Slides(1).Shapes.Select
PptDoc.Slides(1).Shapes.Copy
PptDoc.Slides(2).Shapes.Paste

Mes PptDoc.Slides(n).shapes ne fonctionnent visiblement pas.

Auriez vous une idée SVP ? même si ce n'est qu'une partie du code.

Cordialement;
Yeahman
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message