Rebecca Birch hat einige Kunden, die verlangen, dass ihnen alle Berichte in PowerPoint präsentiert werden. Dies ist eine große Aufgabe, da alle Quelldaten für diese Berichte nur in Excel verfügbar sind. Rebecca suchte nach Ideen, um die Konvertierung von einem zum anderen ein wenig zu vereinfachen – vielleicht indem sie „Schnappschüsse“ von Arbeitsblattdaten machte und diese in PowerPoint-Folien platzierte.

Eine Lösung, wenn nicht so viele Schnappschüsse erforderlich sind, besteht darin, das Einfügen einfach manuell durchzuführen. Sie können Informationen in Excel anzeigen und dann die PrintScreen-Taste drücken, um ein Bild davon in die Office-Zwischenablage zu legen. Wechseln Sie zu PowerPoint und wählen Sie im Menü Bearbeiten die Option Office-Zwischenablage. Sie können dann den Inhalt der Zwischenablage anzeigen und auswählen, was in die aktuelle Folie eingefügt werden soll.

Ein weniger sich wiederholender Ansatz wäre das Verknüpfen von Daten aus der Excel-Arbeitsmappe mit den Folien. Sie können Bearbeiten | verwenden Fügen Sie Special (in PowerPoint) ein, um verknüpfte Daten einzufügen. Auf diese Weise werden bei jeder Aktualisierung der Daten in der Arbeitsmappe auch die verknüpften Folien aktualisiert. Richtig gemacht, bietet diese Lösung die Möglichkeit, dass Sie nur ein einziges Mal einfügen müssen.

Wenn Sie es vorziehen, ein Makro zu entwickeln, um das Einfügen durchzuführen, lesen Sie eines, das von Jon Peltier auf seiner Website entwickelt wurde:

http://peltiertech.com/Excel/XL_PPT.html#rangeppt

Es wird eine Momentaufnahme aller ausgewählten Zellen erstellt und anschließend in die aktive Folie in PowerPoint eingefügt. (Natürlich müssen sowohl Excel als auch PowerPoint geöffnet sein, um das Makro verwenden zu können.)

Darüber hinaus kann das Makro relativ einfach geändert werden, sodass es eine Reihe benannter Bereiche in Excel durchläuft und den Inhalt dieser Bereiche in bestimmte Folien in PowerPoint einfügt.

Eine andere makrobasierte Lösung besteht darin, eine neue PowerPoint-Präsentation (aus Excel heraus) zu erstellen, die eine Momentaufnahme aller Arbeitsblätter in der aktuellen Excel-Arbeitsmappe enthält. Das folgende Makro führt diese Aufgabe aus:

Sub CopyWksToPPT()

Dim pptApp As Object     Dim sTemplatePPt As String     Dim wks As Worksheet     Dim sTargetTop As Single     Dim sTargetLeft As Single     Dim sTargetWidth As Single     Dim sTargetHeight As Single     Dim sScaleHeight As Single     Dim sScaleWidth As Single     Dim iIndex As Integer

'Change these as desired     sTargetTop = 30     sTargetLeft = 60     sTargetWidth = 600     sTargetHeight = 450     sTemplatePPt = "C:\Program Files\Microsoft Office\Templates\Blank Presentation.pot"



iIndex = 1     Set pptApp = CreateObject("Powerpoint.Application")

With pptApp         .Visible = True         .Presentations.Open _             FileName:=sTemplatePPt, Untitled:=msoTrue         For Each wks In Worksheets             wks.Select             .ActiveWindow.View.GotoSlide _                 Index:=.ActivePresentation.Slides.Add _                 (Index:=iIndex, Layout:=12).SlideIndex             iIndex = iIndex + 1             wks.UsedRange.Copy             .ActiveWindow.View.Paste             With .ActiveWindow.Selection.ShapeRange                 sScaleHeight = sTargetHeight / .Height                 sScaleWidth = sTargetWidth / .Width                 If sScaleHeight < sScaleWidth Then                     sScaleWidth = sScaleHeight                 Else                     sScaleHeight = sScaleWidth                 End If                 .ScaleHeight sScaleHeight, 0, 2                 .ScaleWidth sScaleWidth, 0, 2                 .Top = sTargetTop + (sTargetHeight - .Height) / 2                 .Left = sTargetLeft + (sTargetWidth - .Width) / 2             End With         Next         .Visible = True     End With End Sub

Beachten Sie den Bereich „Ändern Sie diese nach Wunsch“. Diese enthält die Angaben dazu, wo sich der eingefügte Snapshot in jeder PowerPoint-Folie befindet, sowie deren Höhe und Breite. In der Variablen sTemplatePPt ist auch der vollständige Pfad zur Vorlage enthalten, die für die neue PowerPoint-Präsentation verwendet werden soll.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2378) gilt für Microsoft Excel 97, 2000, 2002 und 2003.