? Microsoft Excel er et regnearkprogram som kan brukes til å analysere data og lage diagrammer . Microsoft PowerPoint brukes til å lage presentasjoner . Å vite hvordan du eksporterer et Excel-diagram til PowerPoint ved hjelp av en makro kan effektivisere prosessen med å forberede presentasjoner , fordi makro automatiserer eksport fase . Instruksjoner
en

Start Microsoft Excel 2007 og skriv inn følgende : en

I kolonnen " A1 " type "1" . I kolonnen " B1 " type " 0.5" .

I kolonnen " A2 " type "2" . I kolonnen " B2 " type " 0.2" .

I kolonnen " A3 " type " tre " . I kolonnen " B3 " type " 0.7" .

I kolonnen "A4 " type "4" . I kolonnen " B4 " type " 0,1" .

I kolonnen " A5 " type "5". I kolonnen " B5 " type " 0,9 " .

Highlight " A1 " til " B5 ", klikk på "Insert "-menyen og velg " Line" å lage et linjediagram .
2 < p> Velg " Developer " og klikk " Registrer makro ". Klikk " A1 " og velg " Stopp registrering . " Klikk på " Makroer " og velg " Macro1 . " Klikk "Edit " for å åpne Microsoft Visual Basic.

Klikk på " Verktøy"-menyen og merk av for " Microsoft PowerPoint 12.0 Object Library. " Velg " OK ".
3

Skriv inn følgende innsiden " Sub Macro1 " å erklære variabler : en

Dim myPath As String

Dim Ppapp As PowerPoint.Application

Dim ppPresentation Som PowerPoint.Presentation

Dim ppSlide Som PowerPoint.Slide

Dim ppImage Som PowerPoint.Shape
4

Type følgende for å lagre det nye diagrammet du nettopp har laget : .

ActiveSheet.ChartObjects ( " Figur 1 ") Aktiver

myPath = "C : \\ myChart.gif "
< p > ActiveChart.Export Filnavn: = myPath , FilterName : = " GIF "

Du kan redigere " myPath = " C : . \\ myChart.gif "" for å lagre diagrammet til en annen bane

5

Skriv inn følgende for å opprette en ny PowerPoint-presentasjon og legge en tomt lysbilde : en

Set Ppapp = Ny PowerPoint.Application

ppApp.Visible = msoTrue

Sett ppPresentation = ppApp.Presentations.Add ( msoTrue )

en ppPresentation.Slides.Add , ppLayoutBlank
6

Skriv inn følgende for å legge til din Excel-diagram og lagre presentasjonen :

Set ppSlide = ppPresentation.Slides ( 1 )

ppSlide.Shapes.AddPicture Filnavn : = myPath , _

LinkToFile : = msoTrue , SaveWithDocument : = msoTrue , _

Venstre: = 100 , Topp: = 100 , Bredde : = 250 , Høyde : = 250

ppPresentation.SaveAs "G : \\ myExcelChartPresentation.ppt "

ppPresentation.Close

ppApp.Quit

Du kan redigere " ppPresentation.SaveAs " G : . \\ myExcelChartPresentation.ppt "" for å lagre presentasjonen i en annen bane
7

Skriv inn etter å frigjøre dine variabler fra minnet : en

Set ppSlide = Ingenting

Set ppPresentation = Ingenting

Set Ppapp = Ingenting

Trykk " F5 " for å kjøre makroen .