Envoi de données Excel à une présentation powerpoint

Il a été dit que jusqu'à 50 pour cent des présentations PowerPoint contient des données qui ont été copiés directement sur Excel. Cette déclaration 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 dans PowerPoint. Après ces cartes et vues de données ont été créés, pourquoi ne pas vous les déplacer simplement dans PowerPoint? La macro dans cette section vous permet de créer dynamiquement des diapositives PowerPoint contenant des données à partir d'une gamme que vous spécifiez.

Vous pouvez télécharger un exemple de travail d'envoyer des données Excel à PowerPoint.

Comment les œuvres macro

Dans cet exemple, vous copiez une gamme à partir d'un fichier Excel et coller qui vont à une diapositive dans une présentation PowerPoint nouvellement créé.

Gardez à l'esprit que, parce que ce code sera exécuté à partir d'Excel, vous devez définir une référence à Microsoft PowerPoint Object Library. Vous pouvez régler la référence en ouvrant éditeur Visual Basic dans Excel et en choisissant l'outil-Références. Faites défiler la liste jusqu'à ce que vous trouviez l'entrée Microsoft PowerPoint xx Object Library, où le xx est votre version de PowerPoint. Placez une coche dans la case à côté de l'entrée.

Sous CopyRangeToPresentation () 'Étape 1: Déclarez votre variablesDim PP Comme PPPres PowerPoint.ApplicationDim tant PowerPoint.PresentationDim PPSlide Comme PowerPoint.SlideDim SlideTitle Comme String'Step 2: Ouvrez PowerPoint et créer de nouveaux presentationSet PP = New PowerPoint.ApplicationSet PPPres = PP.Presentations .AddPP.Visible = True'Step 3: Ajouter nouvelle diapositive en diaporama 1 et définir le focus sur EEPSTI PPSlide = PPPres.Slides.Add (1, ppLayoutTitleOnly) PPSlide.Select'Step 4: Copiez la plage comme un pictureSheets ("Données de diapositives ") .Range (" A1:. J28 ") CopyPicture _Appearance: = xlScreen, Format: = xlPicture'Step 5: Collez l'image et ajuster sa positionPPSlide.Shapes.Paste.SelectPP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, TruePP .ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True'Step 6: Ajouter le titre à la "Slide My First PowerPoint" slideSlideTitle = PPSlide.Shapes.Title.TextFrame.TextRange.Text = SlideTitle'Step 7: Mémoire CleanupPP.ActivateSet PPSlide = NothingSet PPPres = NothingSet PP = NothingEnd sous

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

É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 que le code fonctionne.

Dans l'étape 3, vous ajoutez une nouvelle diapositive à la présentation en utilisant la méthode Add de l'objet de la diapositive. Notez que vous utilisez ppLayoutTitleOnly, assurant que la diapositive est créée avec un cadre de texte du titre. Vous prenez alors une étape supplémentaire et mettre l'accent sur la diapositive. Cela revient à dire, vous dire explicitement PowerPoint pour sélectionner cette diapositive, ce qui rend actif.

Dans l'étape 4, vous utilisez la méthode de CopyPicture copier la fourchette cible comme une image. La gamme étant copié ici est gamme A1 à J28 dans l'onglet Données de diapositives.

Étape 5 pâtes l'image dans la diapositive active et centres de l'image à la fois horizontalement et verticalement.

Dans l'étape 6, vous stockez le texte pour le titre dans une variable de chaîne, puis passez cette variable à PowerPoint d'appliquer le texte sur le cadre de texte du titre.

À l'étape 7, vous relâchez les objets assignés à vos variables, réduisant ainsi le risque de problèmes causés par des objets rouge qui peut rester ouverte dans la mémoire.

Comment utiliser la macro

Pour mettre en œuvre cette macro, vous pouvez copier et coller dans un module standard:

1. Activer Visual Basic Editor en appuyant sur Alt + F11.

2. Dans la fenêtre Projet, trouver votre projet / nom du classeur.

3. Choisissez Insertion-Module.

4. Tapez ou collez le code.