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.