Microsoft Excel è un foglio di calcolo che può essere utilizzato per analizzare i dati e creare grafici . Microsoft PowerPoint è utilizzato per creare presentazioni . Sapendo come esportare un grafico di Excel in PowerPoint utilizzando una macro può semplificare il processo di preparazione di presentazioni , perché la macro consente di automatizzare la fase di esportazione. Istruzioni
1

Avviare Microsoft Excel 2007 e digitare quanto segue :

Nella colonna di tipo " A1 " "1" . Nella colonna di tipo " B1 ", " 0.5" .

Nella colonna " A2 " di tipo "2" . Nella colonna di tipo " B2 " " 0.2" .

Nella colonna di tipo " A3 " "3" . Nella colonna di tipo " B3 ", " 0.7" .

Nella colonna "A4 " tipo "4" . Nella colonna di tipo " B4 "

Nella colonna " A5 " tipo " 5 " " 0.1" . . Nella colonna di tipo " B5 " " 0.9" .

Highlight "A1 " a " B5 ", fare clic sul menu "Inserisci" e selezionare " Line" per creare un grafico a linee .
2 < p > Selezionare la scheda "Sviluppatore " e cliccare su " Registra macro ". Fare clic su "A1 " e selezionare "Stop Recording ". Fare clic su "Macro" e selezionare " Macro1 ". Fare clic su "Modifica" per aprire Microsoft Visual Basic .

Fare clic sul menu "Strumenti" e seleziona la casella accanto a " PowerPoint 12.0 Object Library. " Selezionare "OK ".
3

Digitare il seguente dentro " Sub Macro1 " per dichiarare le variabili :

Dim myPath As String Dim

Ppapp come PowerPoint.Application

Dim ppPresentation Come PowerPoint.Presentation

Dim ppSlide Come PowerPoint.Slide

Dim ppImage Come PowerPoint.Shape
4

Tipo quanto segue per salvare la nuova tabella che avete appena creato : .

ActiveSheet.ChartObjects ( "Tabella 1 " ) Attivare

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

È possibile modificare " myPath =" C : \\. myChart.gif "" per salvare il grafico in un percorso diverso
< br > 5

digitare quanto segue per creare una nuova presentazione di PowerPoint e aggiungere una diapositiva vuota :

Ppapp = New PowerPoint.Application

ppApp.Visible = msoTrue

impostare ppPresentation = ppApp.Presentations.Add ( msoTrue ) per

ppPresentation.Slides.Add 1 , ppLayoutBlank
6

digitare quanto segue per aggiungere il vostro grafico di Excel e salvare la presentazione : < br

Set> ppSlide = ppPresentation.Slides ( 1 ) per

ppSlide.Shapes.AddPicture Filename : = myPath , _

LinkToFile : = msoTrue , SaveWithDocument : = msoTrue , _

sinistra: = 100 , Top : = 100 , Larghezza: = 250 , Altezza: 250 =

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

ppPresentation.Close < br >

ppApp.Quit

Si può modificare " ppPresentation.SaveAs " G : . \\ myExcelChartPresentation.ppt "" per salvare la presentazione in un percorso diverso
7

Digitare il a seguito di rilasciare le variabili dalla memoria :

ppSlide = Nothing Set

ppPresentation = Nothing Set

Ppapp = Nothing

Premere " F5 " per eseguire la macro .