Hvordan oppretter jeg en makro i XLS å eksportere et diagram til PowerPoint?

Hvordan oppretter jeg en makro i XLS å eksportere et diagram til PowerPoint?


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 fasen.

Bruksanvisning

1 Start Microsoft Excel 2007 og skriver følgende:

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 "3". 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".

Marker "A1" til "B5", klikk på "Sett inn" -menyen og velg "Line" for å skape et linjediagram.

2 Velg "Developer" og klikk "Registrer makro". Klikk "A1" og velg "Stopp registrering." Klikk på "Makroer" og velg "Makro1." Klikk på "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 i "Sub Makro1" for å erklære variabler:

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 Skriv inn følgende for å lagre den nye figuren du nettopp har laget:

ActiveSheet.ChartObjects ( "Chart 1"). Aktiver

myPath = "C: \ myChart.gif"

ActiveChart.Export Filename: = myPath, FILTER: = "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 blank bilde:

Sett ppApp = Ny PowerPoint.Application

ppApp.Visible = msoTrue

Sett ppPresentation = ppApp.Presentations.Add (msoTrue)

ppPresentation.Slides.Add 1, ppLayoutBlank

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

Sett ppSlide = ppPresentation.Slides (1)

ppSlide.Shapes.AddPicture Name: = myPath, _

LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _

Venstre: = 100, Top: = 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 følgende for å frigjøre dine variabler fra minnet:

Sett ppSlide = Nothing

Sett ppPresentation = Nothing

Sett ppApp = Nothing

Trykk "F5" for å kjøre makroen.