? Microsoft Excel er et regnearksprogram , der kan bruges til at analysere data og oprette diagrammer. Microsoft PowerPoint bruges til at oprette præsentationer. Vide, hvordan man eksporterer et Excel-diagram til PowerPoint ved hjælp af en makro kan strømline processen med at forberede præsentationer, fordi makroen automatiserer eksporterende fase . Instruktioner
1

Start Microsoft Excel 2007 og skriv følgende : Hej

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

Kolonnen " A2 " type " 2" . I kolonnen " B2 " type " 0,2 " .

Kolonnen " A3 " type " 3". I kolonnen " B3 " type " 0,7 " .

Kolonnen " A4 " type " 4" . I kolonnen " B4 " type " 0.1 " .

Kolonnen " A5 " type " 5". I kolonnen " B5 " type " 0.9" .

Highlight "A1 " til " B5 ", klik på "Indsæt" menuen og vælge " Line" for at oprette et kurvediagram .
2 < p > Vælg "Udvikler " fanen og klik på " Indspil makro ". Klik på " A1" og vælg " Stop Recording ". Klik på " makroer" og vælg " Macro1 ". Klik på "Rediger " for at åbne Microsoft Visual Basic.

Klik på menuen "Funktioner" , og marker afkrydsningsfeltet ved siden af ​​" Microsoft PowerPoint 12,0 Object Library ". Vælg "OK".
3

Skriv følgende inde i " Sub Macro1 " at erklære dine variabler : Hej

Dim myPath As String

Dim Ppapp Som PowerPoint.Application

Dim ppPresentation Som PowerPoint.Presentation

Dim ppSlide Som PowerPoint.Slide

Dim ppImage Som PowerPoint.Shape
4

Type følgende for at gemme den nye diagram, du lige har oprettet : .

ActiveSheet.ChartObjects ( " figur 1 " ) Aktiver

myPath = " C: \\ myChart.gif "

ActiveChart.Export Filnavn: = myPath , FilterName : = " GIF "

Du kan redigere " myPath =" C: . \\ myChart.gif "" for at gemme diagrammet til en anden vej
< br > 5

Skriv følgende for at oprette en ny PowerPoint- præsentation og tilføje et blankt slide : Hej

Set Ppapp = Ny PowerPoint.Application

ppApp.Visible = msoTrue

Set ppPresentation = ppApp.Presentations.Add ( msoTrue )

ppPresentation.Slides.Add 1 ppLayoutBlank
6

Skriv følgende at tilføje din Excel-diagram , og gemme præsentationen : < br >

Set ppSlide = ppPresentation.Slides (1)

ppSlide.Shapes.AddPicture Filnavn: = myPath , _

LinkToFile : = msoTrue , SaveWithDocument : = msoTrue , _

Venstre: = 100, Top : = 100 , Bredde: = 250 , Højde: = 250

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

ppPresentation.Close < br >

ppApp.Quit

Du kan redigere " ppPresentation.SaveAs " G : . \\ myExcelChartPresentation.ppt "" for at gemme din præsentation i en anden vej
7

Indtast efter at frigive dine variabler fra hukommelsen : Hej

Set ppSlide = Nothing

Set ppPresentation = Nothing

Set Ppapp = Nothing

Tryk på " F5 " for at køre din makro .