Senden Excel-Daten in eine Powerpoint-Präsentation

Es ist gesagt worden, dass bis zu 50 Prozent von Powerpoint-Präsentationen Daten enthalten, die direkt aus Excel kopiert wurde. Diese Aussage ist nicht schwer zu glauben. Es ist oft viel einfacher zu analysieren und Diagramme und Datenansichten in Excel als in Powerpoint erstellen. Nach diesen Diagrammen und Datenansichten erstellt wurden, warum sollte nicht einfach Sie sie in Powerpoint verschieben? Das Makro in diesem Abschnitt können Sie dynamisch an Powerpoint-Folien erstellen, die Sie Daten aus einer Reihe angeben enthalten.

Sie können laden Sie ein funktionierendes Beispiel Senden Excel-Daten zu Powerpoint.

Wie die Makro funktioniert

In diesem Beispiel kopieren Sie eine Auswahl aus einer Excel-Datei und Einfügen, die in einer neu erstellten Powerpoint-Präsentation auf einer Folie liegen.

Beachten Sie, dass, weil dieser Code von Excel ausgeführt werden, müssen Sie einen Verweis auf Microsoft Powerpoint-Objektbibliothek zu setzen. Sie können die Referenz gesetzt von Visual Basic-Editor in Excel öffnen und Tool-Referenzen wählen. Blättern Sie nach unten, bis Sie den Eintrag Microsoft Powerpoint finden xx Objektbibliothek, wo die xx ist Ihre Version von Powerpoint. Setzen Sie ein Häkchen in das Kontrollkästchen neben dem Eintrag.

Sub CopyRangeToPresentation () 'Schritt 1: Erklären Sie Ihre variablesDim PP Als PowerPoint.ApplicationDim PPPres Als PowerPoint.PresentationDim PPSlide Als PowerPoint.SlideDim SlideTitle Als String'Step 2: Öffnen Sie Powerpoint, und erstellen Sie neue presentationSet PP = Neue PowerPoint.ApplicationSet PPPres = PP.Presentations .AddPP.Visible = True'Step 3: Fügen Sie neue Folie als Schieber 1 und stellen Sie den Fokus auf itSet PPSlide = PPPres.Slides.Add (1, ppLayoutTitleOnly) PPSlide.Select'Step 4: den Bereich als pictureSheets Kopieren ( "Slide Daten ") .Range (" A1:. J28 ") Copypicture _Appearance: = xlScreen, Format: = xlPicture'Step 5: das Bild einfügen und anpassen seine positionPPSlide.Shapes.Paste.SelectPP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, TruePP .ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True'Step 6: Fügen Sie den Titel auf die slideSlideTitle = "My First Powerpoint Slide" PPSlide.Shapes.Title.TextFrame.TextRange.Text = SlideTitle'Step 7: Speicher CleanupPP.ActivateSet PPSlide = NothingSet PPPres = NothingSet PP = NothingEnd Unter

In Schritt 1 Sie vier Variablen zu deklarieren: PP ist eine Objektvariable, die die Powerpoint-Anwendungsobjekt macht, PPPres ist eine Objektvariable, die das Objekt Powerpoint-Präsentation macht, ist PPSlide eine Objektvariable, die die Powerpoint-Folie-Objekt enthält, und SlideTitle ist eine Zeichenfolge Variable verwendet, um den Text für den Folientitel zu übergeben.

Schritt 2 öffnet Powerpoint mit einem leeren Präsentation. Beachten Sie, dass Sie die Visible-Eigenschaft des Powerpoint-Anwendung auf True gesetzt, um sicherzustellen, dass Sie die Aktion sehen können, wie der Code ausgeführt wird.

In Schritt 3 Sie eine neue Folie in der Präsentation fügen Sie die Add-Methode von Slide-Objekt. Beachten Sie, dass Sie ppLayoutTitleOnly, um sicherzustellen, dass der Schieber mit einem Titel Textrahmen verwenden erstellt wird. Sie nehmen dann einen zusätzlichen Schritt und setzen Sie den Fokus auf der Folie. Das heißt, Sie explizit Powerpoint sagen diese Folie zu wählen, es aktiv zu machen.

In Schritt 4 Verwenden Sie die Methode Copypicture das Zielband als ein Bild zu kopieren. Der Bereich hier kopiert ist Bereich A1 bis J28 in der Dia-Registerkarte Daten.

Schritt 5 fügt das Bild in die aktive Folie und zentriert das Bild sowohl horizontal als auch vertikal.

In Schritt 6 Speichern Sie den Text für den Titel in einer String-Variablen, und dann diese Variable in Powerpoint übergeben Text zum Titeltextrahmen anzuwenden.

In Schritt 7, lassen Sie die auf Ihre Variablen zugeordneten Objekte, die Möglichkeit von Problemen verursacht durch rouge Objekte zu reduzieren, die im Speicher geöffnet bleiben kann.

Wie das Makro zu verwenden,

Um dieses Makro implementieren, können Sie es in einem Standardmodul kopieren und einfügen:

  1. Visual Basic-Editor aktivieren, indem Sie Alt + F11 drücken.

  2. Im Fenster Projekt Ihr Projekt / Arbeitsmappe Namen.

  3. Wählen Sie Einfügen-Modul.

  4. Geben oder fügen Sie den Code.

Ähnliche

Menü