On öeldud, et kuni 50 protsenti PowerPointi esitlustest sisaldab andmeid, mis on otse Excelist kopeeritud. Seda väidet pole raske uskuda. Diagramme ja andmevaateid on Excelis sageli palju lihtsam analüüsida ja luua kui PowerPointis. Miks ei võiks te pärast nende diagrammide ja andmevaadete loomist neid lihtsalt PowerPointi teisaldada? Selles jaotises olev makro võimaldab teil dünaamiliselt luua PowerPointi slaide, mis sisaldavad andmeid teie määratud vahemikust.
Saate alla laadida toimiva näite Exceli andmete PowerPointi saatmise kohta .
Kuidas makro töötab
Selles näites kopeerite vahemiku Exceli failist ja kleepite selle vahemiku äsja loodud PowerPointi esitluse slaidile.
Pidage meeles, et kuna seda koodi käivitatakse Excelist, peate määrama viite Microsoft PowerPointi objektiteegile. Viite saab määrata, avades Excelis Visual Basicu redaktori ja valides Tööriist→ Viited. Kerige alla, kuni leiate kirje Microsoft PowerPoint xx Object Library, kus xx on teie PowerPointi versioon. Märkige kirje kõrval olevasse märkeruutu.
Sub CopyRangeTo Presentation ()
1. samm: deklareerige oma muutujad
Dim PP PowerPoint.Application
Dim PPPes PowerPoint.Esitlusena
PPSlide'i hämardamine PowerPoint.Slide'ina
Dim SlideTitle stringina
2. samm: avage PowerPoint ja looge uus esitlus
Määra PP = New PowerPoint.Application
Määra PPPres = PP.Esitlused.Lisa
PP.Nähtav = Tõene
3. samm: lisage 1. slaidina uus slaid ja määrake sellele fookus
Määra PPSlide = PPPres.Slides.Add(1, ppLayoutTitleOnly)
PPSlide.Valige
4. samm: kopeerige vahemik pildina
Sheets ("Slaidi andmed"). Vahemik ("A1:J28"). CopyPicture _
Välimus:=xlScreen, Format:=xlPilt
5. samm: kleepige pilt ja reguleerige selle asukohta
PPSlide.Shapes.Paste.Select
PP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
PP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
6. samm: lisage slaidile pealkiri
SlideTitle = "Minu esimene PowerPointi slaid"
PPSlide.Shapes.Title.TextFrame.TextRange.Text = SlideTitle
7. samm: mälu puhastamine
PP.Aktiveeri
Määra PPSlide = mitte midagi
Määra PPPres = Mitte midagi
Määra PP = mitte midagi
Lõpeta alam
1. sammus deklareerite neli muutujat: PP on objektimuutuja, mis paljastab PowerPointi rakenduse objekti, PPPres on objektimuutuja, mis paljastab PowerPointi esitluse objekti, PPSlide on objektimuutuja, mis paljastab PowerPointi slaidiobjekti ja SlideTitle on string. muutuja, mida kasutatakse slaidi pealkirja teksti edastamiseks.
2. toiming avab PowerPointi tühja esitlusega. Pange tähele, et määrasite PowerPointi rakenduse atribuudi Visible väärtuseks Tõene, et tagada toimingu nägemine koodi käitamise ajal.
3. sammus lisate esitlusele uue slaidi, kasutades slaidiobjekti lisamise meetodit. Pange tähele, et kasutate ppLayoutTitleOnly, tagades, et slaid luuakse pealkirja tekstiraamiga. Seejärel teete täiendava sammu ja keskendute slaidile. See tähendab, et annate PowerPointile selgesõnaliselt käsu see slaid valida, muutes selle aktiivseks.
4. sammus kasutate sihtvahemiku pildina kopeerimiseks meetodit CopyPicture. Siia kopeeritav vahemik on vahekaardil Slaidiandmed vahemikus A1 kuni J28.
Samm 5 kleebib pildi aktiivsele slaidile ja tsentreerib pildi nii horisontaalselt kui ka vertikaalselt.
6. sammus salvestate pealkirja teksti stringimuutujasse ja edastate selle muutuja PowerPointile, et pealkirja tekstiraamile tekst rakendada.
7. toimingus vabastate muutujatele määratud objektid, vähendades võimalust, et mällu avatuks jäänud ebaharilikud objektid võivad põhjustada probleeme.
Kuidas makrot kasutada
Selle makro rakendamiseks saate selle kopeerida ja kleepida standardmoodulisse:
Aktiveerige Visual Basic Editor, vajutades Alt+F11.
Otsige projekti aknast üles oma projekti/töövihiku nimi.
Valige Lisa → Moodul.
Tippige või kleepige kood.