Pošiljanje Excelovih podatkov v PowerPointovo predstavitev

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.


Kako dokazati besedilo v tujem jeziku v Wordu 2016

Kako dokazati besedilo v tujem jeziku v Wordu 2016

V interesu kozmopolitizma vam Word 2016 omogoča delo s tujimi jeziki. Naučite se, kako vnesti in urediti besedilo v tujem jeziku, ter preveriti črkovanje in slovnico.

Filtriranje in razvrščanje podatkov vrtilne tabele v Excelu 2019

Filtriranje in razvrščanje podatkov vrtilne tabele v Excelu 2019

Učinkovito filtriranje in razvrščanje podatkov v vrtilni tabeli Excel 2019 za boljša poročila. Dosežite hitrejše analize z našimi namigi in triki!

Kaj pomenijo sporočila o napakah reševalca v Excelu?

Kaj pomenijo sporočila o napakah reševalca v Excelu?

Reševalec v Excelu je močno orodje za optimizacijo, ki lahko naleti na težave. Razumevanje sporočil o napakah reševalca vam lahko pomaga rešiti težave in optimizirati vaše matematične modele.

Teme za PowerPoint 2019

Teme za PowerPoint 2019

Odkrijte različne <strong>teme PowerPoint 2019</strong> in kako jih lahko uporabite za izboljšanje vaših predstavitev. Izberite najboljšo temo za vaše diapozitive.

Kako uporabljati distribucije hi-kvadrat v Excelu

Kako uporabljati distribucije hi-kvadrat v Excelu

Nekateri statistični ukrepi v Excelu so lahko zelo zmedeni, vendar so funkcije hi-kvadrat res praktične. Preberite vse opise funkcij hi-kvadrat za bolje razumevanje statističnih orodij.

Kako dodati obrobo strani v Word 2013

Kako dodati obrobo strani v Word 2013

V tem članku se naučite, kako dodati <strong>obrobo strani</strong> v Word 2013, vključno z različnimi slogi in tehnikami za izboljšanje videza vaših dokumentov.

Kako delati z več dokumenti v Wordu 2013

Kako delati z več dokumenti v Wordu 2013

Ni vam treba omejiti uporabe urejevalnika besedil na delo z enim samim dokumentom. Učinkovito delajte z več dokumenti v Wordu 2013.

Kako dodati komentarje v predstavitev PowerPoint 2013

Kako dodati komentarje v predstavitev PowerPoint 2013

Sodelovanje pri predstavitvi, ustvarjeni v PowerPointu 2013, je lahko tako preprosto kot dodajanje komentarjev. Odkrijte, kako učinkovito uporabljati komentarje za izboljšanje vaših predstavitev.

Kako spremeniti nastavitve preverjanja črkovanja in slovnice v Wordu 2016

Kako spremeniti nastavitve preverjanja črkovanja in slovnice v Wordu 2016

Ugotovite, kako prilagoditi nastavitve preverjanja črkovanja in slovnice v Wordu 2016, da izboljšate svoje jezikovne sposobnosti.

Kaj so izročki v PowerPointu 2013?

Kaj so izročki v PowerPointu 2013?

PowerPoint 2013 vam ponuja različne načine za izvedbo predstavitve, vključno s tiskanjem izročkov. Izročki so ključnega pomena za izboljšanje vaše predstavitve.