Ako vytvoriť makro vo formáte XLS pre export grafu do programu PowerPoint ?

Microsoft Excel je tabuľkový program , ktorý môže byť použitý k analyzovať dáta a vytvárať grafy . Microsoft PowerPoint sa používa pre vytváranie prezentácií . Vedieť , ako exportovať grafu programu Excel do programu PowerPoint pomocou makra môžu zefektívniť proces prípravy prezentácie , pretože makro automatizuje vyvážajúcej fázy . Pokyny dovolená 1

Spustite program Microsoft Excel 2007 a ​​zadajte nasledujúci príkaz :

V stĺpci " A1 " typu " 1 " . V stĺpci " B1 " typ " 0.5 " .

V stĺpci " A2 " typ " 2 " . V stĺpci " B2 " typ " 0.2 " .

V stĺpci " A3 " typu " 3 " . V stĺpci " B3 " typ " 0.7 " .

V stĺpci " A4 " typu " 4 " . V stĺpci " B4 " typ " 0,1 " .

V stĺpci " A5 " typ " 5 " . V stĺpci " B5 " typ " 0.9 " .

Zvýraznite " A1 " až " B5 " , kliknite na " Vložiť " menu a vyberte " Line " vytvoriť čiarový graf .
2

Vyberte kartu " Vývojár " a kliknite na " Záznam makra . " Kliknite na " A1 " a vyberte " Zastaviť nahrávanie . " Kliknite na " makrá " a vyberte " Macro1 . " Kliknite na tlačidlo " Upraviť " , otvorte Microsoft Visual Basic .

Kliknite na menu " Nástroje " a zaškrtnite políčko vedľa " Microsoft PowerPoint 12.0 Object Library . " Zvoľte " OK " .
3

Zadajte nasledujúce vnútri " Sub Macro1 " deklarovať svoje premenné :

Dim mypath As String Dim

ppApp As PowerPoint.Application

Dim ppPresentation Ako PowerPoint.Presentation

Dim ppSlide Ako PowerPoint.Slide

Dim ppImage Ako PowerPoint.Shape GameTwist GameTwist 4

typ po uložení nového grafu , ktorý ste práve vytvorili : Spojené

ActiveSheet.ChartObjects ( " Graf 1 " ) Aktivovať

mypath = " C : \\ myChart.gif "

ActiveChart.Export Meno súboru : = mypath , FilterName : = " GIF "

Tu môžete editovať " mypath = " C : . \\ myChart.gif " " uložiť graf na inú cestu

5

Zadajte nasledujúci vytvoriť novú prezentáciu programu PowerPoint a pridať jeden prázdny snímka:

Set ppApp = New PowerPoint.Application

ppApp.Visible = msoTrue

nastaviť ppPresentation = ppApp.Presentations.Add ( msoTrue )

ppPresentation.Slides.Add 1 , ppLayoutBlank
6

Zadajte nasledujúce pridať graf programu Excel a uložiť prezentáciu :

Nastaviť ppSlide = ppPresentation.Slides ( 1 )

ppSlide.Shapes.AddPicture Meno súboru : = mypath , _

LinkToFile : = msoTrue , SaveWithDocument : = msoTrue , _

Vľavo : = 100 , Top : = 100 , Šírka : = 250 , Výška : = 250

ppPresentation.SaveAs " G : \\ myExcelChartPresentation.ppt "

ppPresentation.Close

ppApp.Quit

Tu môžete editovať " ppPresentation.SaveAs " G : . \\ myExcelChartPresentation.ppt " " pre uloženie prezentácie v inom cestu
7

Sem nasledujúce uvoľniť svoje premenné z pamäti :

Set ppSlide = Nothing

Nastaviť ppPresentation = Nothing

Nastaviť ppApp = Nothing

Stlačte " F5 " pre spustenie makrá .

• Predchádzajúca strana: Ako nahrať PowerPoint na DVD 
• Ďalšia strana: Ako si vyrobiť kalendár v programe PowerPoint