Rečeno je bilo, da do 50 odstotkov PowerPointovih predstavitev vsebuje podatke, ki so bili kopirani naravnost iz Excela. Tej izjavi ni težko verjeti. Pogosto je veliko lažje analizirati in ustvarjati grafikone in poglede podatkov v Excelu kot v PowerPointu. Zakaj so ti grafikoni in pogledi podatkov ustvarjeni, zakaj jih preprosto ne bi premaknili v PowerPoint? Makro v tem razdelku vam omogoča dinamično ustvarjanje PowerPointovih diapozitivov, ki vsebujejo podatke iz obsega, ki ga določite.
Lahko prenesete delujoč primer pošiljanja Excelovih podatkov v PowerPoint .
Kako deluje makro
V tem primeru kopirate obseg iz Excelove datoteke in ta obseg prilepite na diapozitiv v na novo ustvarjeni PowerPointovi predstavitvi.
Upoštevajte, da morate, ker se bo ta koda izvajala iz Excela, nastaviti sklic na knjižnico objektov Microsoft PowerPoint. Sklic lahko nastavite tako, da odprete urejevalnik Visual Basic v Excelu in izberete Orodje→ Reference. Pomaknite se navzdol, dokler ne najdete vnosa Microsoft PowerPoint xx Object Library, kjer je xx vaša različica PowerPointa. Potrdite potrditveno polje poleg vnosa.
Sub CopyRangeToPresentation ()
1. korak: Deklarirajte svoje spremenljivke
Dim PP kot PowerPoint.Application
Dim PPPres kot PowerPoint.Presentation
Zatemni PPSlide kot PowerPoint.Slide
Zatemni naslov diapozitiva kot niz
2. korak: Odprite PowerPoint in ustvarite novo predstavitev
Nastavite PP = Nova PowerPoint.Aplikacija
Nastavite PPPres = PP.Presentations.Add
PP.Vidno = Res
'3. korak: dodajte nov diapozitiv kot diapozitiv 1 in nastavite fokus nanj
Nastavi PPSlide = PPPres.Slides.Add(1, ppLayoutTitleOnly)
PPSlide.Izberi
4. korak: Kopirajte obseg kot sliko
Listi("Podatki diapozitiva").Razpon("A1:J28").CopyPicture _
Videz:=xlScreen, Format:=xlPicture
5. korak: Prilepite sliko in prilagodite njen položaj
PPSlide.Shapes.Paste.Select
PP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
PP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
'Korak 6: Dodajte naslov na diapozitiv
SlideTitle = "Moj prvi PowerPoint diapozitiv"
PPSlide.Shapes.Title.TextFrame.TextRange.Text = SlideTitle
7. korak: Čiščenje pomnilnika
PP.Aktiviraj
Nastavite PPSlide = Nič
Nastavite PPPres = Nič
Nastavite PP = Nič
Končni sub
V 1. koraku deklarirate štiri spremenljivke: PP je spremenljivka objekta, ki razkriva predmet PowerPoint Application, PPPres je spremenljivka predmeta, ki razkriva PowerPointov predstavitev, PPSlide je spremenljivka predmeta, ki izpostavlja objekt PowerPoint Slide, in SlideTitle je niz. spremenljivka, ki se uporablja za posredovanje besedila za naslov diapozitiva.
2. korak odpre PowerPoint s prazno predstavitvijo. Upoštevajte, da ste lastnost Visible aplikacije PowerPoint nastavili na True, da zagotovite, da lahko vidite dejanje med izvajanjem kode.
V 3. koraku v predstavitev dodate nov diapozitiv z metodo Dodaj predmeta Slide. Upoštevajte, da uporabljate ppLayoutTitleOnly in zagotovite, da je diapozitiv ustvarjen z okvirjem z naslovnim besedilom. Nato naredite dodaten korak in nastavite fokus na diapozitiv. To pomeni, da izrecno poveste PowerPointu, da izbere ta diapozitiv, s čimer postane aktiven.
V 4. koraku uporabite metodo CopyPicture za kopiranje ciljnega obsega kot slike. Obseg, ki se kopira tukaj, je obseg od A1 do J28 na zavihku Podatki diapozitiva.
5. korak prilepi sliko v aktivni diapozitiv in jo centrira tako vodoravno kot navpično.
V 6. koraku shranite besedilo za naslov v spremenljivko niza in nato to spremenljivko posredujete PowerPointu, da besedilo uporabi v okvirju z naslovnim besedilom.
V 7. koraku sprostite predmete, dodeljene vašim spremenljivkam, s čimer zmanjšate možnost kakršnih koli težav, ki jih povzročijo rdečkasti predmeti, ki lahko ostanejo odprti v pomnilniku.
Kako uporabljati makro
Če želite implementirati ta makro, ga lahko kopirate in prilepite v standardni modul:
Aktivirajte urejevalnik Visual Basic s pritiskom na Alt+F11.
V oknu Projekt poiščite ime svojega projekta/delovnega zvezka.
Izberite Vstavi → Modul.
Vnesite ali prilepite kodo.