? Microsoft Excel ist ein Tabellenkalkulationsprogramm , die verwendet werden, um Daten zu analysieren und Diagramme erstellen können. Microsoft PowerPoint wird verwendet, um Präsentationen zu erstellen. Wissen, wie man ein Excel-Diagramm in PowerPoint exportieren mit einem Makro können rationalisieren den Prozess der Vorbereitung von Präsentationen , da das Makro automatisiert die ausführenden Phase . Anleitung
1
Starten Sie Microsoft Excel 2007 und geben Sie den folgenden :
Spalte "A1" Typ "1". In der Spalte "B1" Typ " 0.5" .
In der Spalte "A2" "2" . In der Spalte "B2" Typ " 0.2" .
In der Spalte "A3" "3" . In der Spalte " B3 " type " 0.7" .
In der Spalte "A4" Typ " 4". In der Spalte " B4 " type " 0.1" .
In der Spalte "A5" "5" . In der Spalte " B5 " type " 0.9" .
Highlight " A1 " auf " B5 ", klicken Sie auf das Menü "Einfügen" und wählen Sie " Line" , um eine Linie Diagramm zu erstellen .
2 < p> Wählen Sie die Registerkarte "Entwicklertools" und klicken Sie 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.
Klicken Sie auf das Menü "Extras" und aktivieren Sie das Kontrollkästchen neben " Microsoft PowerPoint 12.0 Object Library . " Wählen Sie " OK".
3
Geben Sie den folgenden inside " Sub Macro1 " Ihre Variablen deklarieren: Dim
myPath As String Dim
Ppapp Wie PowerPoint.Application
Dim ppPresentation Wie PowerPoint.Presentation
Dim ppSlide Wie PowerPoint.Slide
Dim ppImage Wie PowerPoint.Shape
4
Typ die folgenden , um die neue Tabelle gerade erstellt haben, speichern : .
ActiveSheet.ChartObjects ( "Chart 1") aktivieren
myPath = "C : \\ myChart.gif "
< p > ActiveChart.Export Dateiname: = myPath , FilterName : = " GIF "
Sie bearbeiten können " myPath =" C: . \\ myChart.gif " " , um das Diagramm zu einem anderen Pfad speichern
< br > 5
Geben Sie den folgenden , um eine neue PowerPoint-Präsentation zu erstellen , und fügen Sie eine leere Folie :
Set Ppapp = New PowerPoint.Application
ppApp.Visible = msoTrue
Set ppPresentation = ppApp.Presentations.Add ( msoTrue )
ppPresentation.Slides.Add 1 , ppLayoutBlank
6
Geben Sie den folgenden Ihre Excel-Tabelle einfügen und speichern Sie die Präsentation :
Set ppSlide = ppPresentation.Slides ( 1) german
ppSlide.Shapes.AddPicture Dateiname: = myPath , _
LinkToFile : = msoTrue , SaveWithDocument : = msoTrue , _
Left : = 100, Top: = 100 , Breite: = 250 , Höhe: 250 =
ppPresentation.SaveAs "G : \\ myExcelChartPresentation.ppt "
ppPresentation.Close
ppApp.Quit
Sie können " ppPresentation.SaveAs " G redigieren. \\ myExcelChartPresentation.ppt "", um Ihre Präsentation in einem anderen Pfad speichern
7
Typ der nach Ihren Variablen aus dem Speicher freizugeben :
Set ppSlide = Nothing Set
ppPresentation = Nothing Set
Ppapp = Nothing
Presse "F5" zu laufen Ihr Makro .
