Wie erstelle ich ein Makro in XLS exportieren ein Diagramms in PowerPoint?

Microsoft Excel ist ein Tabellenkalkulations-Programm, das zum Analysieren von Daten und Erstellen von Diagrammen verwendet werden kann. Microsoft PowerPoint wird verwendet, um Präsentationen zu erstellen. Wissen, wie man ein Excel-Diagramm in PowerPoint mit einem Makro exportieren kann den Prozess der Vorbereitung von Präsentationen, rationalisieren, da das Makro die ausführende Phase automatisiert.

Anweisungen

1 Starten Sie Microsoft Excel 2007, und geben Sie Folgendes ein:

Geben Sie in Spalte "A1" "1". Geben Sie in der Spalte "B1" "0.5".

Geben Sie "2", in der Spalte "A2". Geben Sie in Spalte "B2" "0,2".

Geben Sie in Spalte "A3" "3". Geben Sie in Spalte "B3" "0,7".

Geben Sie in Spalte "A4" "4". Geben Sie in Spalte "B4" "0,1".

Geben Sie in Spalte "A5" "5". Geben Sie in Spalte "B5" "0,9".

Markieren Sie "A1", "B5", klicken Sie im Menü "Einfügen" und wählen Sie "Line" ein Liniendiagramm erstellen.

2 Wählen Sie die Registerkarte "Entwicklertools" und auf "Makro aufzeichnen". Klicken Sie auf "A1" und wählen Sie "Stop Recording." Klicken Sie auf "Makros" und wählen Sie "Macro1." Klicken Sie auf "Bearbeiten", um Microsoft Visual Basic öffnen.

Klicken Sie im Menü "Extras" und aktivieren Sie das Kontrollkästchen neben "Microsoft PowerPoint 12.0-Objektbibliothek." Wählen Sie "OK".

3 Geben Sie Folgendes in "Sub Macro1" Ihre Variablen deklariert werden:

Dim MyPath As String

Dim PpApp als PowerPoint.Application

Dim PpPresentation als PowerPoint.Presentation

Dim PpSlide als PowerPoint.Slide

Dim PpImage als PowerPoint.Shape

4 Geben Sie Folgendes ein, um das neue Diagramm speichern, die, das Sie gerade erstellt haben:

ActiveSheet.ChartObjects ("Diagramm 1"). Aktivieren

MyPath = "C:\myChart.gif"

ActiveChart.Export Filename: = MyPath, FilterName: = "GIF"

Sie können bearbeiten "MyPath ="C:\myChart.gif"" auf das Diagramm in einem anderen Pfad speichern.

5 Geben Sie Folgendes ein, um eine neue PowerPoint‑Präsentation erstellen und Hinzufügen einer leerer Folie:

Legen Sie PpApp = New PowerPoint.Application

ppApp.Visible = MsoTrue

Set PpPresentation = ppApp.Presentations.Add(msoTrue)

ppPresentation.Slides.Add 1, ppLayoutBlank

6 Geben Sie Folgendes ein, um Ihre Excel-Diagramm hinzufügen und speichern Sie die Präsentation:

Set PpSlide = ppPresentation.Slides(1)

ppSlide.Shapes.AddPicture Filename: = MyPath, _

LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _

Left:=100, Top:=100, Width:=250, Height:=250

ppPresentation.SaveAs "G:\myExcelChartPresentation.ppt"

ppPresentation.Close

ppApp.Quit

Sie können bearbeiten "ppPresentation.SaveAs"G:\myExcelChartPresentation.ppt"" zum Speichern einer Präsentation in einem anderen Pfad.

7 Geben Sie Folgendes ein, um Ihre Variablen aus dem Speicher freizugeben:

Set PpSlide = Nothing

Set PpPresentation = Nothing

Legen Sie PpApp = Nothing

Drücken Sie "F5", um das Makro auszuführen.