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

January 31

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


Microsoft Excel è un foglio che può essere utilizzato per analizzare i dati e creare grafici. Microsoft PowerPoint viene utilizzato per creare presentazioni. Sapendo come esportare un grafico di Excel a PowerPoint utilizzando una macro in grado di ottimizzare il processo di presentazioni preparazione, perché la macro automatizza la fase di esportazione.

istruzione

1 Avviare Microsoft Excel 2007 e digitare quanto segue:

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

Nella colonna di tipo "A2" "2". Nella colonna di tipo "B2" "0,2".

Nella colonna di tipo "A3" "3". Nella colonna di tipo "B3" "0,7".

Nella colonna di tipo "A4" "4". Nella colonna di tipo "B4" "0,1".

Nella colonna di tipo "A5" "5". Nella colonna di tipo "B5" "0,9".

Evidenziare "A1" a "B5", fare clic sul menu "Inserisci" e selezionare "Line" per creare un grafico a linee.

2 Selezionare la scheda "Sviluppatore" e fare clic su "Registra macro". Fai clic su "A1" e selezionare "Interrompi registrazione". Fai clic su "Macro" e selezionare "Macro1". Fai clic su "Modifica" per aprire Microsoft Visual Basic.

Fai clic sul menu "Strumenti" e selezionare la casella accanto a "Microsoft 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 Digitare quanto segue per salvare il nuovo grafico appena creato:

ActiveSheet.ChartObjects ( "Tabella 1"). Attiva

myPath = "C: \ myChart.gif"

ActiveChart.Export Nome file: = myPath, FilterName: = "GIF"

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

5 Digitare la seguente per creare una nuova presentazione di PowerPoint e aggiungere una diapositiva vuota:

Set ppApp = Nuovo PowerPoint.Application

ppApp.Visible = msoTrue

Set ppPresentation = ppApp.Presentations.Add (msoTrue)

ppPresentation.Slides.Add 1, ppLayoutBlank

6 Digitare la seguente aggiungere la grafico di Excel e salvare la presentazione:

Impostare ppSlide = ppPresentation.Slides (1)

ppSlide.Shapes.AddPicture Nome file: = myPath, _

LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _

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

ppPresentation.SaveAs "G: \ myExcelChartPresentation.ppt"

ppPresentation.Close

ppApp.Quit

È possibile modificare "ppPresentation.SaveAs" G: \ myExcelChartPresentation.ppt "" per salvare la presentazione in un percorso diverso.

7 Digitare quanto segue per rilasciare le variabili dalla memoria:

Set ppSlide = Nothing

Set ppPresentation = Nothing

Set ppApp = Nothing

Premere il tasto "F5" per eseguire la macro.