? Microsoft Excel är ett kalkylprogram som kan användas för att analysera data och skapa diagram . Microsoft PowerPoint används för att skapa presentationer . Att veta hur du exporterar ett Excel-diagram till PowerPoint med hjälp av ett makro kan effektivisera arbetet med att förbereda presentationer , eftersom makrot automatiserar exporterande fasen . Instruktioner
1
Starta Microsoft Excel 2007 och skriver följande :
I kolumn " A1 " typ " 1 " . I kolumnen " B1 " typ " 0,5 " .
I kolumn " A2 " typ " 2 " . I kolumnen " B2 " typ " 0,2 " .
I kolumn " A3 " typ " 3 " . I kolumnen " B3 " typ " 0,7 " .
I kolumn " A4 " typ " 4 " . I kolumnen " B4 " typ " 0,1 " .
I kolumn " A5 " typ " 5 " . I kolumnen " B5 " typ " 0,9 " .
Highlight " A1 " till " B5 ", klicka på " Infoga " -menyn och välj " Line" för att skapa ett linjediagram .
2
Välj " Utvecklare " fliken och klicka på " Spela in makro . " Klicka på " A1 " och välj " Stoppa inspelning . " Klicka på " Makron " och välj " Makro1 . " Klicka på " Redigera " för att öppna Microsoft Visual Basic .
Klicka på " Verktyg " -menyn och markera rutan bredvid " Microsoft PowerPoint 12.0 Object Library . " Välj " OK . " Addera 3
Skriv följande i " Sub Makro1 " att deklarera dina 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
Typ följande för att spara det nya diagrammet du precis har skapat : .
ActiveSheet.ChartObjects ( " diagram 1 " ) Aktivera
myPath = " C : \\ myChart.gif "
ActiveChart.Export Filename : = myPath , FilterName : = " GIF "
Du kan redigera " myPath = " C : . \\ myChart.gif " " för att spara diagrammet till en annan väg
5
Skriv följande för att skapa en ny PowerPoint- presentation och lägg en tom bild :
Set Ppapp = ny PowerPoint.Application
ppApp.Visible = msoTrue
Ställ ppPresentation = ppApp.Presentations.Add ( msoTrue ) katalog
ppPresentation.Slides.Add 1 , ppLayoutBlank
6
Skriv följande för att lägga till din Excel-diagram och spara presentationen :
Set ppSlide = ppPresentation.Slides ( 1 ) katalog
ppSlide.Shapes.AddPicture Filnamn: = myPath , _
LinkToFile : = msoTrue , SaveWithDocument : = msoTrue , _
Vänster : = 100 , Top : = 100 , Bredd : = 250 , Höjd : = 250
ppPresentation.SaveAs " G : \\ myExcelChartPresentation.ppt "
ppPresentation.Close
ppApp.Quit
Du kan redigera " ppPresentation.SaveAs " G : . \\ myExcelChartPresentation.ppt " " för att spara din presentation på en annan väg
7
Ange efter att släppa dina variabler från minnet :
Set ppSlide = Nothing
Set ppPresentation = Nothing
Set Ppapp = Nothing
Tryck " F5 " för att köra ditt makro .
