En envoyant des données Excel à une présentation PowerPoint - des mannequins

Vidéo: Comment transformer vos fichiers Excel en présentation PowerPoint en 1 clic ? 2025

Il a été dit que jusqu'à 50% des présentations PowerPoint contiennent des données qui ont été copiées directement depuis Excel. Cette déclaration n'est pas difficile à croire. Il est souvent beaucoup plus facile d'analyser et de créer des graphiques et des vues de données dans Excel que dans PowerPoint. Après que ces graphiques et données ont été créés, pourquoi ne les déplaceriez-vous pas simplement dans PowerPoint? La macro de cette section vous permet de créer dynamiquement des diapositives PowerPoint contenant des données d'une plage que vous spécifiez.

Vous pouvez télécharger un exemple pratique d'envoi de données Excel à PowerPoint.

Fonctionnement de la macro

Dans cet exemple, vous copiez une plage à partir d'un fichier Excel et vous collez cette plage sur une diapositive dans une présentation PowerPoint nouvellement créée.

Gardez à l'esprit qu'étant donné que ce code sera exécuté à partir d'Excel, vous devez définir une référence à la bibliothèque d'objets Microsoft PowerPoint. Vous pouvez définir la référence en ouvrant Visual Basic Editor dans Excel et en choisissant Outil → Références. Faites défiler jusqu'à ce que vous trouviez l'entrée Microsoft PowerPoint xx bibliothèque d'objets, où xx est votre version de PowerPoint. Placez une coche dans la case à cocher à côté de l'entrée.

Sub CopyRangeToPresentation () 'Etape 1: Déclarer vos variables Dim PP Comme PowerPoint. Application Dim PPPres comme PowerPoint. Présentation Dim PPSlide As PowerPoint. Slide Dim SlideTitle As String 'Étape 2: Ouvrir PowerPoint et créer une nouvelle présentation Set PP = Nouveau PowerPoint. Application Set PPPres = PP. Présentations Ajouter PP. Visible = True 'Étape 3: Ajouter une nouvelle diapositive en tant que diapositive 1 et mettre le focus dessus Définir PPSlide = PPPres. Diapositives Ajouter (1, ppLayoutTitleOnly) PPSlide. Sélectionnez 'Étape 4: Copiez la plage en tant qu'image ("Données de la diapositive"). Plage ("A1: J28"). CopyPicture _ Apparence: = xlScreen, Format: = xlPicture 'Étape 5: Coller l'image et ajuster sa position PPSlide. Formes. Coller. Sélectionnez PP. ActiveWindow. Sélection. ShapeRange. Aligner msoAlignCenters, True PP. ActiveWindow. Sélection. ShapeRange. Aligner msoAlignMiddles, True 'Étape 6: Ajouter le titre à la diapositive SlideTitle = "Ma première diapositive PowerPoint" PPSlide. Formes. Titre. TextFrame. TextRange. Text = SlideTitle 'Étape 7: Nettoyage de la mémoire PP. Activer Définir PPSlide = Rien Définir PPPres = Rien Définir PP = Rien Fin sub

A l'étape 1, vous déclarez quatre variables: PP est une variable objet qui expose l'objet Application PowerPoint, PPPres est une variable objet qui expose l'objet Présentation PowerPoint, PPSlide est une variable d'objet qui expose l'objet Diapositive PowerPoint et SlideTitle est une variable de chaîne utilisée pour transmettre le texte du titre de la diapositive.

L'étape 2 ouvre PowerPoint avec une présentation vide. Notez que vous définissez la propriété Visible de l'application PowerPoint sur True pour vous assurer que vous pouvez voir l'action pendant que le code s'exécute.

À l'étape 3, vous ajoutez une nouvelle diapositive à la présentation à l'aide de la méthode Add de l'objet Diapositive. Notez que vous utilisez ppLayoutTitleOnly, en vous assurant que la diapositive est créée avec un cadre de texte de titre. Vous effectuez ensuite une étape supplémentaire et mettez l'accent sur la diapositive. C'est-à-dire que vous dites explicitement à PowerPoint de sélectionner cette diapositive, la rendant active.

À l'étape 4, vous utilisez la méthode CopyPicture pour copier la plage cible en tant qu'image. La plage copiée ici est comprise entre A1 et J28 dans l'onglet Slide Data.

L'étape 5 colle l'image dans la diapositive active et centre l'image horizontalement et verticalement.

À l'étape 6, vous stockez le texte du titre dans une variable de chaîne, puis transmettez cette variable à PowerPoint pour appliquer le texte au cadre de texte du titre.

À l'étape 7, vous libérez les objets affectés à vos variables, ce qui réduit les risques de problèmes causés par les objets rouges qui peuvent rester ouverts en mémoire.