Come creare una macro in XLS per esportare un grafico in PowerPoint ?

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

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 "

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

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

5