Microsoft Excel is een spreadsheet- applicatie die kan worden gebruikt om gegevens te analyseren en grafieken maken . Microsoft PowerPoint wordt gebruikt om presentaties te maken . Weten hoe je een Excel-grafiek te exporteren naar PowerPoint met behulp van een macro kan het proces van het opstellen van presentaties te stroomlijnen , omdat de macro automatiseert de fase van uitvoer. Instructies
Start Microsoft Excel 2007 1 en typ het volgende :
In kolom " A1 " type " 1 " . In kolom " B1 " type " 0.5 " .
In kolom " A2 " type " 2 " . In kolom " B2 " type " 0.2 " .
In kolom " A3 " type " 3 " . In kolom " B3 " type " 0.7 " .
In kolom " A4 " type " 4 " . In kolom " B4 " type " 0.1 " .
In kolom " A5 " type " 5 " . In kolom " B5 " type " 0.9" . Hoogtepunt
" A1 " naar " B5 ", klikt u in het menu "Invoegen" en selecteer " Line" om een lijn grafiek te maken . Kopen van 2 Selecteer het tabblad " Developer " en klik op " Macro opnemen . " Klik op " A1 " en kies " Opname stoppen . " Klik op " Macro's " en selecteer " Macro1 . " Klik op "Edit " om Microsoft Visual Basic openen.
Klik op het menu "Extra " en vink het vakje naast " Microsoft PowerPoint 12.0 Object Library . " Selecteer " OK".
Type 3 de volgende binnenkant " Sub Macro1 " om uw variabelen op te geven : Dim mijnpad
als Koord Dim Ppapp
als PowerPoint.Application Dim ppPresentation
Zoals PowerPoint.Presentation Dim ppSlide
Zoals PowerPoint.Slide Dim ppImage
Zoals PowerPoint.Shape
Type 4 het volgende aan de nieuwe grafiek die u zojuist hebt gemaakt te slaan : . ActiveSheet.ChartObjects
( " grafiek 1 " ) Activeer
mijnpad = " C : \\ myChart.gif "
ActiveChart.Export Filename : = mijnpad , FilterName : = " GIF "
U kunt bewerken " mijnpad = " C : . \\ myChart.gif " " om de grafiek om een ander pad te slaan
< br > Type 5 de volgende opties om een nieuwe PowerPoint- presentatie te maken en doe er een lege dia : = nieuw PowerPoint.Application
ppApp.Visible = msoTrue
Set Ppapp
Stel ppPresentation = ppApp.Presentations.Add ( msoTrue ) ppPresentation.Slides.Add
1 , ppLayoutBlank
Type 6 het volgende om uw Excel-grafiek toe te voegen en de presentatie op te slaan : < br Set > ppSlide = ppPresentation.Slides ( 1 ) ppSlide.Shapes.AddPicture Filename
: = mijnpad , _ LinkToFile
: = msoTrue , SaveWithDocument : = msoTrue , _
Links: = 100 , Top : = 100 , breedte: = 250 , Height : = 250 ppPresentation.SaveAs
" G : \\ myExcelChartPresentation.ppt " ppPresentation.Close
< br ppApp.Quit
> U kunt " ppPresentation.SaveAs " G bewerken : . \\ myExcelChartPresentation.ppt "" om uw presentatie in een ander pad te slaan
Type 7 de volgen om uw variabelen los te maken van het geheugen : Set ppSlide
= Nothing Set ppPresentation
= Nothing Set
Ppapp = Nothing Druk op " F5 "
te lopen uw macro .
|
